w8 · tx · B93···Nx7

tx · B93zi3ix9gGWbSUegGuhCjV3VGuMLRZVcHBKVUeB5Nx7

3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW:  -0.01000000 Waves

2021.12.20 22:28 [2907995] smart account 3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B93zi3ix9gGWbSUegGuhCjV3VGuMLRZVcHBKVUeB5Nx7",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1640028536904,
    "version": 1,
    "sender": "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW",
    "senderPublicKey": "6tusy8LfPEh2eoAsxHwZZn6cw8DBMGTHAce3gqLXwQxC",
    "proofs": [
        "4xr9EdiukVVT5NnZTqQQ4jjass5HoREAWZrgGj9tCi9RfrB4esCjke3pa6gvv4U6Ba4zVH34ifdqCTFkgEQpBnCH"
    ],
    "script": "base64:AAIFAAAAAAAAAD4IAhIDCgEIEgMKAQgSBAoCCAgSAwoBCBIHCgUBAQEICBIAEgMKAQgSBAoCCAESBAoCCAESBAoCCAESAwoBCAAAAFQAAAAABlNDQUxFOAAAAAAAAAAACAAAAAAFTVVMVDgAAAAAAAX14QAAAAAAB1NDQUxFMTgAAAAAAAAAABIAAAAABk1VTFQxOAkAATYAAAABAA3gtrOnZAAAAAAAAANTRVACAAAAAl9fAAAAAA5QT09MV0VJR0hUTVVMVAUAAAAFTVVMVDgAAAAACnplcm9CaWdJbnQJAAE2AAAAAQAAAAAAAAAAAAAAAAAOaWR4UG9vbEFkZHJlc3MAAAAAAAAAAAEAAAAADWlkeFBvb2xTdGF0dXMAAAAAAAAAAAIAAAAAEGlkeFBvb2xMUEFzc2V0SWQAAAAAAAAAAAMAAAAADWlkeEFtdEFzc2V0SWQAAAAAAAAAAAQAAAAAD2lkeFByaWNlQXNzZXRJZAAAAAAAAAAABQAAAAAOaWR4QW10QXNzZXREY20AAAAAAAAAAAYAAAAAEGlkeFByaWNlQXNzZXREY20AAAAAAAAAAAcAAAAADmlkeElBbXRBc3NldElkAAAAAAAAAAAIAAAAABBpZHhJUHJpY2VBc3NldElkAAAAAAAAAAAJAAAAAA1pZHhMUEFzc2V0RGNtAAAAAAAAAAAKAQAAAA9nZXRTdHJpbmdPckZhaWwAAAABAAAAA2tleQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEIgAAAAEFAAAAA2tleQkAASwAAAACCQABLAAAAAICAAAAD21hbmRhdG9yeSB0aGlzLgUAAAADa2V5AgAAAA8gaXMgbm90IGRlZmluZWQBAAAAGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAKbWFuZGF0b3J5IAkABCUAAAABBQAAAAdhZGRyZXNzAgAAAAEuBQAAAANrZXkCAAAADyBpcyBub3QgZGVmaW5lZAEAAAAMZ2V0SW50T3JaZXJvAAAAAgAAAAdhZGRyZXNzAAAAA2tleQkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkAAAAAAAAAAAABAAAADGdldEludE9yRmFpbAAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACAgAAAA9tYW5kYXRvcnkgdGhpcy4FAAAAA2tleQIAAAAPIGlzIG5vdCBkZWZpbmVkAQAAAAlhc0FueUxpc3QAAAABAAAAA3ZhbAQAAAAHJG1hdGNoMAUAAAADdmFsAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAlMaXN0W0FueV0EAAAACnZhbEFueUx5c3QFAAAAByRtYXRjaDAFAAAACnZhbEFueUx5c3QJAAACAAAAAQIAAAAbZmFpbCB0byBjYXN0IGludG8gTGlzdFtBbnldAQAAAAVhc0ludAAAAAEAAAADdmFsBAAAAAckbWF0Y2gwBQAAAAN2YWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAAGdmFsSW50BQAAAAckbWF0Y2gwBQAAAAZ2YWxJbnQJAAACAAAAAQIAAAAVZmFpbCB0byBjYXN0IGludG8gSW50AQAAAAhhc1N0cmluZwAAAAEAAAADdmFsBAAAAAckbWF0Y2gwBQAAAAN2YWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAGdmFsU3RyBQAAAAckbWF0Y2gwBQAAAAZ2YWxTdHIJAAACAAAAAQIAAAAYZmFpbCB0byBjYXN0IGludG8gU3RyaW5nAQAAABFrZXlGYWN0b3J5QWRkcmVzcwAAAAACAAAAHCVzJXNfX2NvbmZpZ19fZmFjdG9yeUFkZHJlc3MAAAAAGElkeEZhY3RvcnlDZmdTdGFraW5nRGFwcAAAAAAAAAAAAQAAAAAZSWR4RmFjdG9yeUNmZ0Jvb3N0aW5nRGFwcAAAAAAAAAAAAgAAAAAUSWR4RmFjdG9yeUNmZ0lkb0RhcHAAAAAAAAAAAAMAAAAAFUlkeEZhY3RvcnlDZmdUZWFtRGFwcAAAAAAAAAAABAAAAAAZSWR4RmFjdG9yeUNmZ0VtaXNzaW9uRGFwcAAAAAAAAAAABQAAAAAVSWR4RmFjdG9yeUNmZ1Jlc3REYXBwAAAAAAAAAAAGAAAAABlJZHhGYWN0b3J5Q2ZnU2xpcHBhZ2VEYXBwAAAAAAAAAAAHAAAAABpJZHhGYWN0b3J5Q2ZnR3d4UmV3YXJkRGFwcAAAAAAAAAAACAEAAAANa2V5RmFjdG9yeUNmZwAAAAACAAAAESVzX19mYWN0b3J5Q29uZmlnAQAAABprZXlGYWN0b3J5THAyQXNzZXRzTWFwcGluZwAAAAEAAAAKbHBBc3NldFN0cgkABLkAAAACCQAETAAAAAICAAAABiVzJXMlcwkABEwAAAACBQAAAApscEFzc2V0U3RyCQAETAAAAAICAAAAHm1hcHBpbmdzX19scEFzc2V0MlBvb2xDb250cmFjdAUAAAADbmlsBQAAAANTRVABAAAAEGtleUZhY3RvcnlMcExpc3QAAAAAAgAAABAlc19fbHBUb2tlbnNMaXN0AQAAACZrZXlGYWN0b3J5THBBc3NldFRvUG9vbENvbnRyYWN0QWRkcmVzcwAAAAEAAAAKbHBBc3NldFN0cgkABLkAAAACCQAETAAAAAICAAAABiVzJXMlcwkABEwAAAACBQAAAApscEFzc2V0U3RyCQAETAAAAAICAAAAHm1hcHBpbmdzX19scEFzc2V0MlBvb2xDb250cmFjdAUAAAADbmlsBQAAAANTRVABAAAAFGtleUZhY3RvcnlQb29sV2VpZ2h0AAAAAQAAAA9jb250cmFjdEFkZHJlc3MJAAS5AAAAAgkABEwAAAACAgAAAAQlcyVzCQAETAAAAAICAAAACnBvb2xXZWlnaHQJAARMAAAAAgUAAAAPY29udHJhY3RBZGRyZXNzBQAAAANuaWwFAAAAA1NFUAEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAEJAQAAABFrZXlGYWN0b3J5QWRkcmVzcwAAAAABAAAACnJlYWRMcExpc3QAAAAACQAEtQAAAAIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQdAAAAAgkBAAAAGHJlYWRGYWN0b3J5QWRkcmVzc09yRmFpbAAAAAAJAQAAABBrZXlGYWN0b3J5THBMaXN0AAAAAAIAAAAABQAAAANTRVABAAAAFHJlYWRGYWN0b3J5Q2ZnT3JGYWlsAAAAAQAAAAdmYWN0b3J5CQAEtQAAAAIJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAAdmYWN0b3J5CQEAAAANa2V5RmFjdG9yeUNmZwAAAAAFAAAAA1NFUAEAAAAYZ2V0Qm9vc3RpbmdBZGRyZXNzT3JGYWlsAAAAAQAAAARmQ2ZnCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQABkQAAAAIFAAAABGZDZmcFAAAAGUlkeEZhY3RvcnlDZmdCb29zdGluZ0RhcHABAAAAGGdldEVtaXNzaW9uQWRkcmVzc09yRmFpbAAAAAEAAAAEZkNmZwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkAAZEAAAACBQAAAARmQ2ZnBQAAABlJZHhGYWN0b3J5Q2ZnRW1pc3Npb25EYXBwAQAAABdnZXRTdGFraW5nQWRkcmVzc09yRmFpbAAAAAEAAAAEZkNmZwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkAAZEAAAACBQAAAARmQ2ZnBQAAABhJZHhGYWN0b3J5Q2ZnU3Rha2luZ0RhcHABAAAAGWdldEd3eFJld2FyZEFkZHJlc3NPckZhaWwAAAABAAAABGZDZmcJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAAGRAAAAAgUAAAAEZkNmZwUAAAAaSWR4RmFjdG9yeUNmZ0d3eFJld2FyZERhcHABAAAAC2tleUJvb3N0Q2ZnAAAAAAIAAAAKJXNfX2NvbmZpZwEAAAAfa2V5Qm9vc3RpbmdMb2NrUGFyYW1Ub3RhbEFtb3VudAAAAAACAAAAHiVzJXNfX3N0YXRzX19hY3RpdmVUb3RhbExvY2tlZAEAAAAoa2V5Qm9vc3RpbmdTdGF0c0xvY2tzRHVyYXRpb25TdW1JbkJsb2NrcwAAAAACAAAAJSVzJXNfX3N0YXRzX19sb2Nrc0R1cmF0aW9uU3VtSW5CbG9ja3MBAAAAGmtleUJvb3N0aW5nU3RhdHNMb2Nrc0NvdW50AAAAAAIAAAAXJXMlc19fc3RhdHNfX2xvY2tzQ291bnQBAAAAGmtleUJvb3N0aW5nU3RhdHNVc2Vyc0NvdW50AAAAAAIAAAAdJXMlc19fc3RhdHNfX2FjdGl2ZVVzZXJzQ291bnQBAAAAEmtleVVzZXIyTnVtTWFwcGluZwAAAAEAAAALdXNlckFkZHJlc3MJAAS5AAAAAgkABEwAAAACAgAAABklcyVzJXNfX21hcHBpbmdfX3VzZXIybnVtCQAETAAAAAIFAAAAC3VzZXJBZGRyZXNzBQAAAANuaWwFAAAAA1NFUAEAAAASa2V5TnVtMlVzZXJNYXBwaW5nAAAAAQAAAANudW0JAAS5AAAAAgkABEwAAAACAgAAABklcyVzJXNfX21hcHBpbmdfX251bTJ1c2VyCQAETAAAAAIFAAAAA251bQUAAAADbmlsBQAAAANTRVABAAAAFmtleUxvY2tQYXJhbVVzZXJBbW91bnQAAAABAAAAB3VzZXJOdW0JAAS5AAAAAgkABEwAAAACAgAAABYlcyVkJXNfX3BhcmFtQnlVc2VyTnVtCQAETAAAAAIFAAAAB3VzZXJOdW0JAARMAAAAAgIAAAAGYW1vdW50BQAAAANuaWwFAAAAA1NFUAEAAAAWa2V5TG9ja1BhcmFtU3RhcnRCbG9jawAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAFiVzJWQlc19fcGFyYW1CeVVzZXJOdW0JAARMAAAAAgUAAAAHdXNlck51bQkABEwAAAACAgAAAAVzdGFydAUAAAADbmlsBQAAAANTRVABAAAAFGtleUxvY2tQYXJhbUR1cmF0aW9uAAAAAQAAAAd1c2VyTnVtCQAEuQAAAAIJAARMAAAAAgIAAAAWJXMlZCVzX19wYXJhbUJ5VXNlck51bQkABEwAAAACBQAAAAd1c2VyTnVtCQAETAAAAAICAAAACGR1cmF0aW9uBQAAAANuaWwFAAAAA1NFUAEAAAANa2V5TG9ja1BhcmFtSwAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAFiVzJWQlc19fcGFyYW1CeVVzZXJOdW0JAARMAAAAAgUAAAAHdXNlck51bQkABEwAAAACAgAAAAFrBQAAAANuaWwFAAAAA1NFUAEAAAANa2V5TG9ja1BhcmFtQgAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAFiVzJWQlc19fcGFyYW1CeVVzZXJOdW0JAARMAAAAAgUAAAAHdXNlck51bQkABEwAAAACAgAAAAFiBQAAAANuaWwFAAAAA1NFUAEAAAAVa2V5TG9ja1BhcmFtQnlQZXJpb2RLAAAAAgAAAAd1c2VyTnVtAAAABnBlcmlvZAkABLkAAAACCQAETAAAAAICAAAAFyVzJWQlcyVkX19wYXJhbUJ5UGVyaW9kCQAETAAAAAIFAAAAB3VzZXJOdW0JAARMAAAAAgIAAAABawkABEwAAAACBQAAAAZwZXJpb2QFAAAAA25pbAUAAAADU0VQAQAAABVrZXlMb2NrUGFyYW1CeVBlcmlvZEIAAAACAAAAB3VzZXJOdW0AAAAGcGVyaW9kCQAEuQAAAAIJAARMAAAAAgIAAAAXJXMlZCVzJWRfX3BhcmFtQnlQZXJpb2QJAARMAAAAAgUAAAAHdXNlck51bQkABEwAAAACAgAAAAFiCQAETAAAAAIFAAAABnBlcmlvZAUAAAADbmlsBQAAAANTRVABAAAAIGtleVVzZXJCb29zdEVtaXNzaW9uTGFzdElOVEVHUkFMAAAAAQAAAAd1c2VyTnVtCQAEuQAAAAIJAARMAAAAAgIAAAAeJXMlZF9fdXNlckJvb3N0RW1pc3Npb25MYXN0SW50CQAETAAAAAIFAAAAB3VzZXJOdW0FAAAAA25pbAUAAAADU0VQAQAAABdrZXlVc2VyTWF4Qm9vc3RJTlRFR1JBTAAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAESVzJWRfX21heEJvb3N0SW50CQAETAAAAAIFAAAAB3VzZXJOdW0FAAAAA25pbAUAAAADU0VQAQAAABhrZXlUb3RhbE1heEJvb3N0SU5URUdSQUwAAAAAAgAAABglcyVzX19tYXhCb29zdEludF9fdG90YWwBAAAAIWtleVVzZXJCb29zdEF2YWxhaWJsZVRvQ2xhaW1Ub3RhbAAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAJCVzJWRfX3VzZXJCb29zdEF2YWxpYWJsZVRvQ2xhaW1Ub3RhbAkABEwAAAACBQAAAAd1c2VyTnVtBQAAAANuaWwFAAAAA1NFUAEAAAATa2V5VXNlckJvb3N0Q2xhaW1lZAAAAAEAAAAHdXNlck51bQkABLkAAAACCQAETAAAAAICAAAAFiVzJWRfX3VzZXJCb29zdENsYWltZWQJAARMAAAAAgUAAAAHdXNlck51bQUAAAADbmlsBQAAAANTRVABAAAAEWtleVRvdGFsQ2FjaGVkR3d4AAAAAAIAAAAWJXMlc19fZ3d4Q2FjaGVkX190b3RhbAEAAAAPa2V5U3Rha2VkQnlVc2VyAAAAAgAAAA51c2VyQWRkcmVzc1N0cgAAAAxscEFzc2V0SWRTdHIJAAS5AAAAAgkABEwAAAACAgAAAA4lcyVzJXNfX3N0YWtlZAkABEwAAAACBQAAAA51c2VyQWRkcmVzc1N0cgkABEwAAAACBQAAAAxscEFzc2V0SWRTdHIFAAAAA25pbAUAAAADU0VQAQAAAA5rZXlTdGFrZWRUb3RhbAAAAAEAAAAMbHBBc3NldElkU3RyCQABLAAAAAICAAAAFyVzJXMlc19fc3Rha2VkX190b3RhbF9fBQAAAAxscEFzc2V0SWRTdHIBAAAAEGtleUNsYWltZWRCeVVzZXIAAAACAAAADGxwQXNzZXRJZFN0cgAAAA51c2VyQWRkcmVzc1N0cgkABLkAAAACCQAETAAAAAICAAAADyVzJXMlc19fY2xhaW1lZAkABEwAAAACBQAAAA51c2VyQWRkcmVzc1N0cgkABEwAAAACBQAAAAxscEFzc2V0SWRTdHIFAAAAA25pbAUAAAADU0VQAQAAABlrZXlDbGFpbWVkQnlVc2VyTWluUmV3YXJkAAAAAgAAAAxscEFzc2V0SWRTdHIAAAAOdXNlckFkZHJlc3NTdHIJAAS5AAAAAgkABEwAAAACAgAAABglcyVzJXNfX2NsYWltZWRNaW5SZXdhcmQJAARMAAAAAgUAAAAOdXNlckFkZHJlc3NTdHIJAARMAAAAAgUAAAAMbHBBc3NldElkU3RyBQAAAANuaWwFAAAAA1NFUAEAAAAba2V5Q2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkAAAAAgAAAAxscEFzc2V0SWRTdHIAAAAOdXNlckFkZHJlc3NTdHIJAAS5AAAAAgkABEwAAAACAgAAABolcyVzJXNfX2NsYWltZWRCb29zdFJld2FyZAkABEwAAAACBQAAAA51c2VyQWRkcmVzc1N0cgkABEwAAAACBQAAAAxscEFzc2V0SWRTdHIFAAAAA25pbAUAAAADU0VQAQAAAApyZWFkU3Rha2VkAAAAAgAAAAtzdGFraW5nRGFwcAAAAANrZXkJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAALc3Rha2luZ0RhcHAFAAAAA2tleQAAAAAAAAAAAAEAAAAea2V5RW1pc3Npb25SYXRlUGVyQmxvY2tDdXJyZW50AAAAAAIAAAAbJXMlc19fcmF0ZVBlckJsb2NrX19jdXJyZW50AQAAACFrZXlFbWlzc2lvblJhdGVQZXJCbG9ja01heEN1cnJlbnQAAAAAAgAAAB4lcyVzX19yYXRlUGVyQmxvY2tNYXhfX2N1cnJlbnQBAAAAFWtleUVtaXNzaW9uU3RhcnRCbG9jawAAAAACAAAAGiVzJXNfX2VtaXNzaW9uX19zdGFydEJsb2NrAQAAABtrZXlFbWlzc2lvbkR1cmF0aW9uSW5CbG9ja3MAAAAAAgAAABglcyVzX19lbWlzc2lvbl9fZHVyYXRpb24BAAAAE2tleUVtaXNzaW9uRW5kQmxvY2sAAAAAAgAAABglcyVzX19lbWlzc2lvbl9fZW5kQmxvY2sAAAAAC2ZhY3RvcnlEYXBwCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAAAAAAKZmFjdG9yeUNmZwkBAAAAFHJlYWRGYWN0b3J5Q2ZnT3JGYWlsAAAAAQUAAAALZmFjdG9yeURhcHAAAAAADGVtaXNzaW9uRGFwcAkBAAAAGGdldEVtaXNzaW9uQWRkcmVzc09yRmFpbAAAAAEFAAAACmZhY3RvcnlDZmcAAAAAC3N0YWtpbmdEYXBwCQEAAAAXZ2V0U3Rha2luZ0FkZHJlc3NPckZhaWwAAAABBQAAAApmYWN0b3J5Q2ZnAAAAAA1nd3hSZXdhcmREYXBwCQEAAAAZZ2V0R3d4UmV3YXJkQWRkcmVzc09yRmFpbAAAAAEFAAAACmZhY3RvcnlDZmcAAAAADGJvb3N0aW5nRGFwcAkBAAAAGGdldEJvb3N0aW5nQWRkcmVzc09yRmFpbAAAAAEFAAAACmZhY3RvcnlDZmcBAAAAGWludGVybmFsQ3VycmVudFJld2FyZFJhdGUAAAABAAAACWxwQXNzZXRJZAQAAAAOcG9vbEFkZHJlc3NTdHIJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAAtmYWN0b3J5RGFwcAkBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQUAAAAJbHBBc3NldElkBAAAAA5wb29sV2VpZ2h0TXVsdAUAAAAFTVVMVDgEAAAACnBvb2xXZWlnaHQJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC2ZhY3RvcnlEYXBwCQEAAAAUa2V5RmFjdG9yeVBvb2xXZWlnaHQAAAABBQAAAA5wb29sQWRkcmVzc1N0cgQAAAASd3hFbWlzc2lvblBlckJsb2NrCQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAMZW1pc3Npb25EYXBwCQEAAAAea2V5RW1pc3Npb25SYXRlUGVyQmxvY2tDdXJyZW50AAAAAAQAAAAVd3hFbWlzc2lvblBlckJsb2NrTWF4CQEAAAAMZ2V0SW50T3JGYWlsAAAAAgUAAAAMZW1pc3Npb25EYXBwCQEAAAAha2V5RW1pc3Npb25SYXRlUGVyQmxvY2tNYXhDdXJyZW50AAAAAAQAAAANYm9vc3RNYXhDb2VmZgAAAAAAAAAAAwQAAAAWcG9vbFd4RW1pc3Npb25QZXJCbG9jawkAAGkAAAACCQAAawAAAAMFAAAAEnd4RW1pc3Npb25QZXJCbG9jawUAAAAKcG9vbFdlaWdodAUAAAAOcG9vbFdlaWdodE11bHQFAAAADWJvb3N0TWF4Q29lZmYEAAAAGXBvb2xXeEVtaXNzaW9uUGVyQmxvY2tNYXgJAABrAAAAAwUAAAAVd3hFbWlzc2lvblBlckJsb2NrTWF4BQAAAApwb29sV2VpZ2h0BQAAAA5wb29sV2VpZ2h0TXVsdAQAAAAJbWF4RmFjdG9yCQAAaAAAAAIFAAAADWJvb3N0TWF4Q29lZmYFAAAABU1VTFQ4BAAAAA10b3RhbExwU3Rha2VkCQEAAAAMZ2V0SW50T3JaZXJvAAAAAgUAAAALc3Rha2luZ0RhcHAJAQAAAA5rZXlTdGFrZWRUb3RhbAAAAAEFAAAACWxwQXNzZXRJZAkABEwAAAACBQAAABZwb29sV3hFbWlzc2lvblBlckJsb2NrCQAETAAAAAIFAAAACW1heEZhY3RvcgkABEwAAAACBQAAAA10b3RhbExwU3Rha2VkBQAAAANuaWwBAAAAGmNhbGNHd3hBbW91bnRTdGFydFJFQURPTkxZAAAAAwAAAApsb2NrQW1vdW50AAAADGxvY2tEdXJhdGlvbgAAAA9tYXhMb2NrRHVyYXRpb24EAAAAB2NvZWZmWDgJAABrAAAAAwUAAAAMbG9ja0R1cmF0aW9uBQAAAAVNVUxUOAUAAAAPbWF4TG9ja0R1cmF0aW9uBAAAAA5nV3hBbW91bnRTdGFydAkAAGsAAAADBQAAAApsb2NrQW1vdW50BQAAAAdjb2VmZlg4BQAAAAVNVUxUOAkABEwAAAACBQAAAA5nV3hBbW91bnRTdGFydAUAAAADbmlsAAAACwAAAAFpAQAAAAtjb25zdHJ1Y3RvcgAAAAEAAAAOZmFjdG9yeUFkZHJlc3MDCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAAACAAAAAQIAAAAObm90IGF1dGhvcml6ZWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAEWtleUZhY3RvcnlBZGRyZXNzAAAAAAUAAAAOZmFjdG9yeUFkZHJlc3MFAAAAA25pbAAAAAFpAQAAABljdXJyZW50UmV3YXJkUmF0ZVJFQURPTkxZAAAAAQAAAAlscEFzc2V0SWQEAAAACnJld2FyZERhdGEJAQAAABlpbnRlcm5hbEN1cnJlbnRSZXdhcmRSYXRlAAAAAQUAAAAJbHBBc3NldElkBAAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAAQAAAAJbWF4RmFjdG9yCQABkQAAAAIFAAAACnJld2FyZERhdGEAAAAAAAAAAAEEAAAADXRvdGFsTHBTdGFrZWQJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAgkABRQAAAACBQAAAANuaWwJAAS5AAAAAgkABEwAAAACAgAAAAYlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAARMAAAAAgkAAaQAAAABBQAAAAltYXhGYWN0b3IJAARMAAAAAgkAAaQAAAABBQAAAA10b3RhbExwU3Rha2VkBQAAAANuaWwFAAAAA1NFUAAAAAFpAQAAAB1jdXJyZW50VXNlclJld2FyZFJhdGVSRUFET05MWQAAAAIAAAAJbHBBc3NldElkAAAAC3VzZXJBZGRyZXNzBAAAAApyZXdhcmREYXRhCQEAAAAZaW50ZXJuYWxDdXJyZW50UmV3YXJkUmF0ZQAAAAEFAAAACWxwQXNzZXRJZAQAAAASd3hFbWlzc2lvblBlckJsb2NrCQABkQAAAAIFAAAACnJld2FyZERhdGEAAAAAAAAAAAAEAAAACW1heEZhY3RvcgkAAZEAAAACBQAAAApyZXdhcmREYXRhAAAAAAAAAAABBAAAAA10b3RhbExwU3Rha2VkCQABkQAAAAIFAAAACnJld2FyZERhdGEAAAAAAAAAAAIEAAAADmxwU3Rha2VkQnlVc2VyCQEAAAAMZ2V0SW50T3JaZXJvAAAAAgUAAAALc3Rha2luZ0RhcHAJAQAAAA9rZXlTdGFrZWRCeVVzZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAJbHBBc3NldElkBAAAAA11c2VyQ2xhaW1JbmZvCQAEtQAAAAIJAQAAAAhhc1N0cmluZwAAAAEJAAP8AAAABAUAAAALc3Rha2luZ0RhcHACAAAAD2NsYWltV3hSRUFET05MWQkABEwAAAACBQAAAAlscEFzc2V0SWQJAARMAAAAAgUAAAALdXNlckFkZHJlc3MFAAAAA25pbAUAAAADbmlsBQAAAANTRVAEAAAADW1pblJld2FyZFBhcnQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABLYAAAABCQABkQAAAAIFAAAADXVzZXJDbGFpbUluZm8AAAAAAAAAAAUCAAAAHGNvdWxkbid0IHBhcnNlIG1pblJld2FyZFBhcnQEAAAAD2Jvb3N0UmV3YXJkUGFydAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEtgAAAAEJAAGRAAAAAgUAAAANdXNlckNsYWltSW5mbwAAAAAAAAAABgIAAAAeY291bGRuJ3QgcGFyc2UgYm9vc3RSZXdhcmRQYXJ0BAAAAAVkZWJ1ZwkAAZEAAAACBQAAAA11c2VyQ2xhaW1JbmZvAAAAAAAAAAAHBAAAAA1ib29zdGluZ1Bvd2VyAwkAAAAAAAACBQAAAA9ib29zdFJld2FyZFBhcnQAAAAAAAAAAAAJAABoAAAAAgAAAAAAAAAAAQUAAAAFTVVMVDgJAABrAAAAAwkAAGQAAAACBQAAAA1taW5SZXdhcmRQYXJ0BQAAAA9ib29zdFJld2FyZFBhcnQFAAAABU1VTFQ4BQAAAA1taW5SZXdhcmRQYXJ0CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAADCVkJWQlZCVkJWQlcwkABEwAAAACCQABpAAAAAEFAAAAEnd4RW1pc3Npb25QZXJCbG9jawkABEwAAAACCQABpAAAAAEFAAAACW1heEZhY3RvcgkABEwAAAACCQABpAAAAAEFAAAADXRvdGFsTHBTdGFrZWQJAARMAAAAAgkAAaQAAAABBQAAAA5scFN0YWtlZEJ5VXNlcgkABEwAAAACCQABpAAAAAEFAAAADWJvb3N0aW5nUG93ZXIJAARMAAAAAgUAAAAFZGVidWcFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAFWNsYWltZWRSZXdhcmRSRUFET05MWQAAAAEAAAALdXNlckFkZHJlc3MEAAAABmxwTGlzdAkBAAAACnJlYWRMcExpc3QAAAAABAAAAAZwcmVmaXgCAAAACiVzJWQlZCVkJXMKAQAAABtjbGFpbWVkUmV3YXJkQnlMcEFnZ3JlZ2F0b3IAAAACAAAACXJlc3VsdFN0cgAAAAZuZXh0THAEAAAAGWNsYWltZWRCeVVzZXJNaW5SZXdhcmRLRVkJAQAAABlrZXlDbGFpbWVkQnlVc2VyTWluUmV3YXJkAAAAAgUAAAAGbmV4dExwBQAAAAt1c2VyQWRkcmVzcwQAAAAbY2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkS0VZCQEAAAAba2V5Q2xhaW1lZEJ5VXNlckJvb3N0UmV3YXJkAAAAAgUAAAAGbmV4dExwBQAAAAt1c2VyQWRkcmVzcwQAAAAQbWluUmV3YXJkQ2xhaW1lZAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBoAAAACBQAAAAtzdGFraW5nRGFwcAUAAAAZY2xhaW1lZEJ5VXNlck1pblJld2FyZEtFWQAAAAAAAAAAAAQAAAASYm9vc3RSZXdhcmRDbGFpbWVkCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAAC3N0YWtpbmdEYXBwBQAAABtjbGFpbWVkQnlVc2VyQm9vc3RSZXdhcmRLRVkAAAAAAAAAAAAEAAAAC2dGZWVDbGFpbWVkAAAAAAAAAAAACQAEuQAAAAIJAARMAAAAAgkAASwAAAACBQAAAAZwcmVmaXgFAAAACXJlc3VsdFN0cgkABEwAAAACBQAAAAZuZXh0THAJAARMAAAAAgkAAaQAAAABBQAAABBtaW5SZXdhcmRDbGFpbWVkCQAETAAAAAIJAAGkAAAAAQUAAAASYm9vc3RSZXdhcmRDbGFpbWVkCQAETAAAAAIJAAGkAAAAAQUAAAALZ0ZlZUNsYWltZWQJAARMAAAAAgIAAAADZW5kBQAAAANuaWwFAAAAA1NFUAQAAAAGcmVzdWx0CgAAAAACJGwFAAAABmxwTGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzACAAAAAiVzCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAbY2xhaW1lZFJld2FyZEJ5THBBZ2dyZWdhdG9yAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEAAAAFJGYwXzIAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACCQEAAAAFJGYwXzEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQAAAAAAAAAABgAAAAAAAAAABwAAAAAAAAAACAAAAAAAAAAACQAAAAAAAAAACgkABRQAAAACBQAAAANuaWwJAAEsAAAAAgkAASwAAAACBQAAAAZyZXN1bHQFAAAAA1NFUAUAAAALdXNlckFkZHJlc3MAAAABaQEAAAARY2FsY0Jvb3N0UkVBRE9OTFkAAAAFAAAADWRlbHRhV3hBbW91bnQAAAAXZGVsdGFMb2NrUGVyaW9kSW5CbG9ja3MAAAANZGVsdGFMcEFtb3VudAAAAAxscEFzc2V0SWRPcHQAAAAOdXNlckFkZHJlc3NPcHQEAAAACG1hdGhEYXBwBQAAAA1nd3hSZXdhcmREYXBwBAAAAAhFTVBUWVNUUgIAAAAFZW1wdHkEAAAAF21heExvY2tEdXJhdGlvbkluQmxvY2tzCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgkABLUAAAACCQEAAAAYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAAAAAgUAAAAMYm9vc3RpbmdEYXBwCQEAAAALa2V5Qm9vc3RDZmcAAAAABQAAAANTRVAAAAAAAAAAAAQEAAAADGxwQXNzZXRJZFN0cgMJAAAAAAAAAgUAAAAMbHBBc3NldElkT3B0AgAAAAAFAAAACEVNUFRZU1RSBQAAAAxscEFzc2V0SWRPcHQEAAAADnVzZXJBZGRyZXNzU3RyAwkAAAAAAAACBQAAAA51c2VyQWRkcmVzc09wdAIAAAAABQAAAAhFTVBUWVNUUgUAAAAOdXNlckFkZHJlc3NPcHQEAAAACnVzZXJOdW1TdHIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQdAAAAAgUAAAAMYm9vc3RpbmdEYXBwCQEAAAASa2V5VXNlcjJOdW1NYXBwaW5nAAAAAQUAAAAOdXNlckFkZHJlc3NPcHQFAAAACEVNUFRZU1RSBAAAAAp1c2VyQW1vdW50CQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAADGJvb3N0aW5nRGFwcAkBAAAAFmtleUxvY2tQYXJhbVVzZXJBbW91bnQAAAABBQAAAAp1c2VyTnVtU3RyAAAAAAAAAAAABAAAAAlsb2NrU3RhcnQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAMYm9vc3RpbmdEYXBwCQEAAAAWa2V5TG9ja1BhcmFtU3RhcnRCbG9jawAAAAEFAAAACnVzZXJOdW1TdHIFAAAABmhlaWdodAQAAAAMbG9ja0R1cmF0aW9uCQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAADGJvb3N0aW5nRGFwcAkBAAAAFGtleUxvY2tQYXJhbUR1cmF0aW9uAAAAAQUAAAAKdXNlck51bVN0cgAAAAAAAAAAAAQAAAAHbG9ja0VuZAkAAGQAAAACBQAAAAlsb2NrU3RhcnQFAAAADGxvY2tEdXJhdGlvbgQAAAARcmVtYWluaW5nRHVyYXRpb24JAAGWAAAAAQkABEwAAAACCQAAZQAAAAIFAAAAB2xvY2tFbmQFAAAABmhlaWdodAkABEwAAAACAAAAAAAAAAAABQAAAANuaWwEAAAADXVzZXJBbW91bnROZXcJAABkAAAAAgUAAAAKdXNlckFtb3VudAUAAAANZGVsdGFXeEFtb3VudAQAAAAPbG9ja0R1cmF0aW9uTmV3CQABlwAAAAEJAARMAAAAAgkAAGQAAAACBQAAABFyZW1haW5pbmdEdXJhdGlvbgUAAAAXZGVsdGFMb2NrUGVyaW9kSW5CbG9ja3MJAARMAAAAAgUAAAAXbWF4TG9ja0R1cmF0aW9uSW5CbG9ja3MFAAAAA25pbAQAAAARdXNlckN1cnJnV3hBbW91bnQJAQAAAAVhc0ludAAAAAEJAAGRAAAAAgkBAAAACWFzQW55TGlzdAAAAAEJAAP8AAAABAUAAAAMYm9vc3RpbmdEYXBwAgAAABNnd3hVc2VySW5mb1JFQURPTkxZCQAETAAAAAIFAAAADnVzZXJBZGRyZXNzU3RyBQAAAANuaWwFAAAAA25pbAAAAAAAAAAAAAQAAAARZ1d4QW1vdW50U3RhcnROZXcJAAGRAAAAAgkBAAAAGmNhbGNHd3hBbW91bnRTdGFydFJFQURPTkxZAAAAAwUAAAANdXNlckFtb3VudE5ldwUAAAAPbG9ja0R1cmF0aW9uTmV3BQAAABdtYXhMb2NrRHVyYXRpb25JbkJsb2NrcwAAAAAAAAAAAAQAAAATZ1d4UGFyYW1zUmVzdWx0TGlzdAkBAAAACWFzQW55TGlzdAAAAAEJAAP8AAAABAUAAAAIbWF0aERhcHACAAAAFWNhbGNHd3hQYXJhbXNSRUFET05MWQkABEwAAAACBQAAABFnV3hBbW91bnRTdGFydE5ldwkABEwAAAACBQAAAAZoZWlnaHQJAARMAAAAAgUAAAAPbG9ja0R1cmF0aW9uTmV3BQAAAANuaWwFAAAAA25pbAQAAAANZ1d4QW1vdW50RGlmZgkAAGUAAAACBQAAABFnV3hBbW91bnRTdGFydE5ldwUAAAARdXNlckN1cnJnV3hBbW91bnQEAAAAAWsJAQAAAAVhc0ludAAAAAEJAAGRAAAAAgUAAAATZ1d4UGFyYW1zUmVzdWx0TGlzdAAAAAAAAAAAAAQAAAABYgkBAAAABWFzSW50AAAAAQkAAZEAAAACBQAAABNnV3hQYXJhbXNSZXN1bHRMaXN0AAAAAAAAAAABBAAAAAZwZXJpb2QJAAGkAAAAAQkBAAAABWFzSW50AAAAAQkAAZEAAAACBQAAABNnV3hQYXJhbXNSZXN1bHRMaXN0AAAAAAAAAAACBAAAABh0b3RhbE1heEJvb3N0SW50ZWdyYWxLRVkJAQAAABhrZXlUb3RhbE1heEJvb3N0SU5URUdSQUwAAAAABAAAABF0b3RhbENhY2hlZEd3eEtFWQkBAAAAEWtleVRvdGFsQ2FjaGVkR3d4AAAAAAQAAAASdXNlck1heEJvb3N0SW50TmV3CQAAaQAAAAIJAABoAAAAAgUAAAARZ1d4QW1vdW50U3RhcnROZXcFAAAAD2xvY2tEdXJhdGlvbk5ldwAAAAAAAAAAAgQAAAAQdG90YWxNYXhCb29zdEludAkBAAAADGdldEludE9yWmVybwAAAAIFAAAADGJvb3N0aW5nRGFwcAUAAAAYdG90YWxNYXhCb29zdEludGVncmFsS0VZBAAAAA50b3RhbENhY2hlZEd3eAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBoAAAACBQAAAAxib29zdGluZ0RhcHAFAAAAEXRvdGFsQ2FjaGVkR3d4S0VZAAAAAAAAAAAABAAAAAVNVUxUMwAAAAAAAAAD6AQAAAAUd3hFbWlzc2lvblBlckJsb2NrWDMJAABoAAAAAgkBAAAADGdldEludE9yRmFpbAAAAAIFAAAADGVtaXNzaW9uRGFwcAkBAAAAHmtleUVtaXNzaW9uUmF0ZVBlckJsb2NrQ3VycmVudAAAAAAFAAAABU1VTFQzBAAAAA9zdGFrZWRCeVVzZXJLRVkJAQAAAA9rZXlTdGFrZWRCeVVzZXIAAAACBQAAAA51c2VyQWRkcmVzc1N0cgUAAAAMbHBBc3NldElkU3RyBAAAAA5zdGFrZWRUb3RhbEtFWQkBAAAADmtleVN0YWtlZFRvdGFsAAAAAQUAAAAMbHBBc3NldElkU3RyBAAAAAxzdGFrZWRCeVVzZXIJAQAAAApyZWFkU3Rha2VkAAAAAgUAAAALc3Rha2luZ0RhcHAFAAAAD3N0YWtlZEJ5VXNlcktFWQQAAAALc3Rha2VkVG90YWwJAQAAAApyZWFkU3Rha2VkAAAAAgUAAAALc3Rha2luZ0RhcHAFAAAADnN0YWtlZFRvdGFsS0VZBAAAAA9zdGFrZWRCeVVzZXJOZXcJAABkAAAAAgUAAAAMc3Rha2VkQnlVc2VyBQAAAA1kZWx0YUxwQW1vdW50BAAAAA5zdGFrZWRUb3RhbE5ldwkAAGQAAAACBQAAAAtzdGFrZWRUb3RhbAUAAAANZGVsdGFMcEFtb3VudAQAAAAKcG9vbFdlaWdodAMJAQAAAAIhPQAAAAIFAAAADGxwQXNzZXRJZFN0cgUAAAAIRU1QVFlTVFIEAAAADnBvb2xBZGRyZXNzU3RyCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAALZmFjdG9yeURhcHAJAQAAABprZXlGYWN0b3J5THAyQXNzZXRzTWFwcGluZwAAAAEFAAAADGxwQXNzZXRJZFN0cgkAASwAAAACAgAAABV1bnN1cHBvcnRlZCBscCBhc3NldCAFAAAADGxwQXNzZXRJZFN0cgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAALZmFjdG9yeURhcHAJAQAAABRrZXlGYWN0b3J5UG9vbFdlaWdodAAAAAEFAAAADnBvb2xBZGRyZXNzU3RyAAAAAAAAAAAABAAAABhwb29sV3hFbWlzc2lvblBlckJsb2NrWDMJAABrAAAAAwUAAAAUd3hFbWlzc2lvblBlckJsb2NrWDMFAAAACnBvb2xXZWlnaHQJAABoAAAAAgUAAAAOUE9PTFdFSUdIVE1VTFQAAAAAAAAAAAMEAAAACXd4UGVyTHBYMwMJAQAAAAIhPQAAAAIFAAAADnN0YWtlZFRvdGFsTmV3AAAAAAAAAAAACQAAawAAAAMFAAAAGHBvb2xXeEVtaXNzaW9uUGVyQmxvY2tYMwUAAAAFTVVMVDgFAAAADnN0YWtlZFRvdGFsTmV3AAAAAAAAAAAABAAAABB1c2VyV3hQZXJCbG9ja1gzCQAAawAAAAMFAAAACXd4UGVyTHBYMwUAAAAPc3Rha2VkQnlVc2VyTmV3BQAAAAVNVUxUOAQAAAAXYm9vc3RFbWlzc2lvblBlckJsb2NrWDMJAABoAAAAAgUAAAAYcG9vbFd4RW1pc3Npb25QZXJCbG9ja1gzAAAAAAAAAAACBAAAABZ0bXBVc2VyQm9vc3RQZXJCbG9ja1gzCQAAawAAAAMFAAAAEWdXeEFtb3VudFN0YXJ0TmV3BQAAABdib29zdEVtaXNzaW9uUGVyQmxvY2tYMwkAAGQAAAACBQAAAA50b3RhbENhY2hlZEd3eAUAAAANZ1d4QW1vdW50RGlmZgQAAAATdXNlckJvb3N0UGVyQmxvY2tYMwkAAZcAAAABCQAETAAAAAIFAAAAFnRtcFVzZXJCb29zdFBlckJsb2NrWDMJAARMAAAAAgkAAGgAAAACBQAAABB1c2VyV3hQZXJCbG9ja1gzAAAAAAAAAAACBQAAAANuaWwEAAAACmJvb3N0Q29lZmYDCQAAAAAAAAIFAAAAEHVzZXJXeFBlckJsb2NrWDMAAAAAAAAAAAAJAABoAAAAAgAAAAAAAAAAAQUAAAAFTVVMVDgJAABrAAAAAwkAAGQAAAACBQAAABN1c2VyQm9vc3RQZXJCbG9ja1gzBQAAABB1c2VyV3hQZXJCbG9ja1gzBQAAAAVNVUxUOAUAAAAQdXNlcld4UGVyQmxvY2tYMwQAAAAFZGVidWcJAAS5AAAAAgkABEwAAAACCQABLAAAAAICAAAADWxwQXNzZXRJZFN0cj0FAAAADGxwQXNzZXRJZFN0cgkABEwAAAACCQABLAAAAAICAAAAD3VzZXJBZGRyZXNzU3RyPQUAAAAOdXNlckFkZHJlc3NTdHIJAARMAAAAAgkAASwAAAACAgAAAAt1c2VyTnVtU3RyPQUAAAAKdXNlck51bVN0cgkABEwAAAACCQABLAAAAAICAAAAC3VzZXJBbW91bnQ9CQABpAAAAAEFAAAACnVzZXJBbW91bnQJAARMAAAAAgkAASwAAAACAgAAAA51c2VyQW1vdW50TmV3PQkAAaQAAAABBQAAAA11c2VyQW1vdW50TmV3CQAETAAAAAIJAAEsAAAAAgIAAAAQbG9ja0R1cmF0aW9uTmV3PQkAAaQAAAABBQAAAA9sb2NrRHVyYXRpb25OZXcJAARMAAAAAgkAASwAAAACAgAAAA9nV3hBbW91bnRTdGFydD0JAAGkAAAAAQUAAAARZ1d4QW1vdW50U3RhcnROZXcJAARMAAAAAgkAASwAAAACAgAAABd0bXBVc2VyQm9vc3RQZXJCbG9ja1gzPQkAAaQAAAABBQAAABZ0bXBVc2VyQm9vc3RQZXJCbG9ja1gzCQAETAAAAAIJAAEsAAAAAgIAAAAQc3Rha2VkQnlVc2VyTmV3PQkAAaQAAAABBQAAAA9zdGFrZWRCeVVzZXJOZXcJAARMAAAAAgkAASwAAAACAgAAAA9zdGFrZWRUb3RhbE5ldz0JAAGkAAAAAQUAAAAOc3Rha2VkVG90YWxOZXcJAARMAAAAAgkAASwAAAACAgAAAAtwb29sV2VpZ2h0PQkAAaQAAAABBQAAAApwb29sV2VpZ2h0CQAETAAAAAIJAAEsAAAAAgIAAAAKd3hQZXJMcFgzPQkAAaQAAAABBQAAAAl3eFBlckxwWDMJAARMAAAAAgkAASwAAAACAgAAABlwb29sV3hFbWlzc2lvblBlckJsb2NrWDM9CQABpAAAAAEFAAAAGHBvb2xXeEVtaXNzaW9uUGVyQmxvY2tYMwkABEwAAAACCQABLAAAAAICAAAAEXVzZXJXeFBlckJsb2NrWDM9CQABpAAAAAEFAAAAEHVzZXJXeFBlckJsb2NrWDMJAARMAAAAAgkAASwAAAACAgAAAA5nV3hBbW91bnREaWZmPQkAAaQAAAABBQAAAA1nV3hBbW91bnREaWZmCQAETAAAAAIJAAEsAAAAAgIAAAAPdG90YWxDYWNoZWRHd3g9CQABpAAAAAEFAAAADnRvdGFsQ2FjaGVkR3d4CQAETAAAAAIJAAEsAAAAAgIAAAASdXNlckN1cnJnV3hBbW91bnQ9CQABpAAAAAEFAAAAEXVzZXJDdXJyZ1d4QW1vdW50BQAAAANuaWwCAAAAAjo6CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAABiVkJWQlcwkABEwAAAACCQABpAAAAAEFAAAAEWdXeEFtb3VudFN0YXJ0TmV3CQAETAAAAAIJAAGkAAAAAQUAAAAKYm9vc3RDb2VmZgkABEwAAAACBQAAAAVkZWJ1ZwUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAXd3hFbWlzc2lvblN0YXRzUkVBRE9OTFkAAAAABAAAAAdPTkVNVUxUCQABpAAAAAEFAAAABU1VTFQ4BAAAAANPTkUCAAAAATEEAAAAEnd4RW1pc3Npb25QZXJCbG9jawkBAAAADGdldEludE9yRmFpbAAAAAIFAAAADGVtaXNzaW9uRGFwcAkBAAAAHmtleUVtaXNzaW9uUmF0ZVBlckJsb2NrQ3VycmVudAAAAAAEAAAAEmVtaXNzaW9uU3RhcnRCbG9jawkBAAAADGdldEludE9yRmFpbAAAAAIFAAAADGVtaXNzaW9uRGFwcAkBAAAAFWtleUVtaXNzaW9uU3RhcnRCbG9jawAAAAAEAAAADHBhc3NlZEJsb2NrcwMJAABmAAAAAgUAAAASZW1pc3Npb25TdGFydEJsb2NrBQAAAAZoZWlnaHQAAAAAAAAAAAAJAABlAAAAAgUAAAAGaGVpZ2h0BQAAABJlbWlzc2lvblN0YXJ0QmxvY2sEAAAADnRlYW1FbUR1cmF0aW9uCQAAaAAAAAIAAAAAAAAABaAAAAAAAAAAAW0EAAAACXRlYW1FbU1heAkAAGgAAAACAAAAAAAL+wRABQAAAAVNVUxUOAQAAAAGdGVhbUVtAwkAAGYAAAACBQAAAAxwYXNzZWRCbG9ja3MFAAAADnRlYW1FbUR1cmF0aW9uBQAAAAl0ZWFtRW1NYXgJAABrAAAAAwUAAAAJdGVhbUVtTWF4BQAAAAxwYXNzZWRCbG9ja3MFAAAADnRlYW1FbUR1cmF0aW9uBAAAAA90b3RhbFd4UmVsZWFzZWQJAABkAAAAAgkAAGgAAAACBQAAABJ3eEVtaXNzaW9uUGVyQmxvY2sFAAAADHBhc3NlZEJsb2NrcwUAAAAGdGVhbUVtBAAAAA10b3RhbFd4TG9ja2VkCQEAAAAMZ2V0SW50T3JaZXJvAAAAAgUAAAAMYm9vc3RpbmdEYXBwCQEAAAAfa2V5Qm9vc3RpbmdMb2NrUGFyYW1Ub3RhbEFtb3VudAAAAAAEAAAAGGxvY2tzRHVyYXRpb25TdW1JbkJsb2NrcwkBAAAADGdldEludE9yWmVybwAAAAIFAAAADGJvb3N0aW5nRGFwcAkBAAAAKGtleUJvb3N0aW5nU3RhdHNMb2Nrc0R1cmF0aW9uU3VtSW5CbG9ja3MAAAAABAAAAApsb2Nrc0NvdW50CQEAAAAMZ2V0SW50T3JaZXJvAAAAAgUAAAAMYm9vc3RpbmdEYXBwCQEAAAAaa2V5Qm9vc3RpbmdTdGF0c0xvY2tzQ291bnQAAAAACQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAACCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAPdG90YWxXeFJlbGVhc2VkCQAETAAAAAIJAAGkAAAAAQUAAAANdG90YWxXeExvY2tlZAkABEwAAAACCQABpAAAAAEFAAAAGGxvY2tzRHVyYXRpb25TdW1JbkJsb2NrcwkABEwAAAACCQABpAAAAAEFAAAACmxvY2tzQ291bnQFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAEXBvb2xTdGF0c1JFQURPTkxZAAAAAQAAAAdscEFzc2V0BAAAAAtwb29sQWRkcmVzcwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAAAAAIFAAAAC2ZhY3RvcnlEYXBwCQEAAAAma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MAAAABBQAAAAdscEFzc2V0BAAAAANjZmcJAQAAAAlhc0FueUxpc3QAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZBQAAAANuaWwFAAAAA25pbAQAAAAJbHBBc3NldElkCQACWQAAAAEJAQAAAAhhc1N0cmluZwAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQb29sTFBBc3NldElkBAAAAAphbXRBc3NldElkCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAQAAAAMcHJpY2VBc3NldElkCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAtpQW10QXNzZXRJZAkBAAAACGFzU3RyaW5nAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeElBbXRBc3NldElkBAAAAA1pUHJpY2VBc3NldElkCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4SVByaWNlQXNzZXRJZAQAAAALYW10QXNzZXREY20JAQAAAAVhc0ludAAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQQAAAANcHJpY2VBc3NldERjbQkBAAAABWFzSW50AAAAAQkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20EAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAphbXRBc3NldElkBQAAAANuaWwFAAAAA25pbAQAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAQAAAAVhc0ludAAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAMcHJpY2VBc3NldElkBQAAAANuaWwFAAAAA25pbAQAAAAKcHJpY2VzTGlzdAMJAAAAAAAAAgUAAAANcG9vbExQQmFsYW5jZQAAAAAAAAAAAAkABEwAAAACCQABpgAAAAEFAAAACnplcm9CaWdJbnQJAARMAAAAAgkAAaYAAAABBQAAAAp6ZXJvQmlnSW50CQAETAAAAAIJAAGmAAAAAQUAAAAKemVyb0JpZ0ludAUAAAADbmlsCQEAAAAJYXNBbnlMaXN0AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQkABEwAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UJAARMAAAAAgUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAARMAAAAAgUAAAANcG9vbExQQmFsYW5jZQUAAAADbmlsBQAAAANuaWwEAAAACGN1clByaWNlAAAAAAAAAAAABAAAAA9scEFtdEFzc2V0U2hhcmUJAQAAAAVhc0ludAAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFmZyb21YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAZEAAAACBQAAAApwcmljZXNMaXN0AAAAAAAAAAABCQAETAAAAAIFAAAABU1VTFQ4BQAAAANuaWwFAAAAA25pbAQAAAARbHBQcmljZUFzc2V0U2hhcmUJAQAAAAVhc0ludAAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFmZyb21YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAZEAAAACBQAAAApwcmljZXNMaXN0AAAAAAAAAAACCQAETAAAAAIFAAAABU1VTFQ4BQAAAANuaWwFAAAAA25pbAQAAAAKcG9vbFdlaWdodAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAALZmFjdG9yeURhcHAJAQAAABRrZXlGYWN0b3J5UG9vbFdlaWdodAAAAAEJAAQlAAAAAQUAAAALcG9vbEFkZHJlc3MJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAOJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAABJhY2NBbXRBc3NldEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAADXBvb2xMUEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAAD2xwQW10QXNzZXRTaGFyZQkABEwAAAACCQABpAAAAAEFAAAAEWxwUHJpY2VBc3NldFNoYXJlCQAETAAAAAIJAAGkAAAAAQUAAAAKcG9vbFdlaWdodAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAkcG9vbEV2YWx1YXRlUHV0QnlBbW91bnRBc3NldFJFQURPTkxZAAAAAgAAAAdscEFzc2V0AAAADGluQW1Bc3NldEFtdAQAAAALcG9vbEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAAtmYWN0b3J5RGFwcAkBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQUAAAAHbHBBc3NldAQAAAADY2ZnCQEAAAAJYXNBbnlMaXN0AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQUAAAADbmlsBQAAAANuaWwEAAAACWxwQXNzZXRJZAkAAlkAAAABCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UG9vbExQQXNzZXRJZAQAAAAMYW1Bc3NldElkU3RyCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAQAAAAJYW1Bc3NldElkCQACWQAAAAEFAAAADGFtQXNzZXRJZFN0cgQAAAAMcHJBc3NldElkU3RyCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkBAAAAAlwckFzc2V0SWQJAAJZAAAAAQUAAAAMcHJBc3NldElkU3RyBAAAAAthbXRBc3NldERjbQkBAAAABWFzSW50AAAAAQkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtBAAAAA1wcmljZUFzc2V0RGNtCQEAAAAFYXNJbnQAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UHJpY2VBc3NldERjbQQAAAAKcG9vbFN0YXR1cwkBAAAACGFzU3RyaW5nAAAAAQkAAZEAAAACBQAAAANjZmcFAAAADWlkeFBvb2xTdGF0dXMEAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxhbUFzc2V0SWRTdHIFAAAAA25pbAUAAAADbmlsBAAAABRhY2NQcmljZUFzc2V0QmFsYW5jZQkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxwckFzc2V0SWRTdHIFAAAAA25pbAUAAAADbmlsBAAAAA5hbXRBc3NldEFtdFgxOAkAAacAAAABCQEAAAAIYXNTdHJpbmcAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABR0b1gxOFdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UJAARMAAAAAgUAAAALYW10QXNzZXREY20FAAAAA25pbAUAAAADbmlsBAAAABBwcmljZUFzc2V0QW10WDE4CQABpwAAAAEJAQAAAAhhc1N0cmluZwAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFHRvWDE4V3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCQAETAAAAAIFAAAADXByaWNlQXNzZXREY20FAAAAA25pbAUAAAADbmlsBAAAAAtjdXJQcmljZVgxOAMJAAAAAAAAAgUAAAANcG9vbExQQmFsYW5jZQAAAAAAAAAAAAUAAAAKemVyb0JpZ0ludAkAAacAAAABCQEAAAAIYXNTdHJpbmcAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAB5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAABBwcmljZUFzc2V0QW10WDE4CQAETAAAAAIJAAGmAAAAAQUAAAAOYW10QXNzZXRBbXRYMTgFAAAAA25pbAUAAAADbmlsBAAAAAhjdXJQcmljZQkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAWZnJvbVgxOFdyYXBwZXJSRUFET05MWQkABEwAAAACCQABpgAAAAEFAAAAC2N1clByaWNlWDE4CQAETAAAAAIFAAAABU1VTFQ4BQAAAANuaWwFAAAAA25pbAQAAAAPaW5BbUFzc2V0QW10WDE4CQABpwAAAAEJAQAAAAhhc1N0cmluZwAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFHRvWDE4V3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAADGluQW1Bc3NldEFtdAkABEwAAAACBQAAAAthbXRBc3NldERjbQUAAAADbmlsBQAAAANuaWwEAAAAD2luUHJBc3NldEFtdFgxOAkAATwAAAADBQAAAA9pbkFtQXNzZXRBbXRYMTgFAAAAC2N1clByaWNlWDE4BQAAAAZNVUxUMTgEAAAADGluUHJBc3NldEFtdAkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAWZnJvbVgxOFdyYXBwZXJSRUFET05MWQkABEwAAAACCQABpgAAAAEFAAAAD2luUHJBc3NldEFtdFgxOAkABEwAAAACBQAAAA1wcmljZUFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAQAAAADcmVzCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAACNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkABEwAAAACAgAAAAAJAARMAAAAAgAAAAAAAAehIAkABEwAAAACBQAAAAxpbkFtQXNzZXRBbXQJAARMAAAAAgUAAAAJYW1Bc3NldElkCQAETAAAAAIFAAAADGluUHJBc3NldEFtdAkABEwAAAACBQAAAAlwckFzc2V0SWQJAARMAAAAAgIAAAAACQAETAAAAAIGCQAETAAAAAIHBQAAAANuaWwFAAAAA25pbAQAAAANJHQwMjIxMTAyMjQ2MwQAAAAHJG1hdGNoMAUAAAADcmVzAwMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzECAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzMCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzQCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzUCAAAAA0ludAkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNgIAAAADSW50BwcHBwQAAAAJY2FsY0xwQW10CAUAAAAHJG1hdGNoMAAAAAJfMQQAAAAMY3VyUHJpY2VDYWxjCAUAAAAHJG1hdGNoMAAAAAJfMwQAAAAJYW1CYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNAQAAAAJcHJCYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNQQAAAAKbHBFbWlzc2lvbggFAAAAByRtYXRjaDAAAAACXzYJAAUXAAAABQUAAAAJY2FsY0xwQW10BQAAAAxjdXJQcmljZUNhbGMFAAAACWFtQmFsYW5jZQUAAAAJcHJCYWxhbmNlBQAAAApscEVtaXNzaW9uCQAAAgAAAAECAAAAE0NvdWxkbid0IGNhc3QgdHlwZXMEAAAACWNhbGNMcEFtdAgFAAAADSR0MDIyMTEwMjI0NjMAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAADSR0MDIyMTEwMjI0NjMAAAACXzIEAAAACWFtQmFsYW5jZQgFAAAADSR0MDIyMTEwMjI0NjMAAAACXzMEAAAACXByQmFsYW5jZQgFAAAADSR0MDIyMTEwMjI0NjMAAAACXzQEAAAACmxwRW1pc3Npb24IBQAAAA0kdDAyMjExMDIyNDYzAAAAAl81CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAAECVkJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAAljYWxjTHBBbXQJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAACWFtQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACXByQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACmxwRW1pc3Npb24JAARMAAAAAgUAAAAKcG9vbFN0YXR1cwkABEwAAAACCQABpAAAAAEFAAAADGluQW1Bc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAADGluUHJBc3NldEFtdAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAjcG9vbEV2YWx1YXRlUHV0QnlQcmljZUFzc2V0UkVBRE9OTFkAAAACAAAAB2xwQXNzZXQAAAAMaW5QckFzc2V0QW10BAAAAAtwb29sQWRkcmVzcwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAGGdldFN0cmluZ0J5QWRkcmVzc09yRmFpbAAAAAIFAAAAC2ZhY3RvcnlEYXBwCQEAAAAma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MAAAABBQAAAAdscEFzc2V0BAAAAANjZmcJAQAAAAlhc0FueUxpc3QAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABxnZXRQb29sQ29uZmlnV3JhcHBlclJFQURPTkxZBQAAAANuaWwFAAAAA25pbAQAAAAJbHBBc3NldElkCQACWQAAAAEJAQAAAAhhc1N0cmluZwAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQb29sTFBBc3NldElkBAAAAAxhbUFzc2V0SWRTdHIJAQAAAAhhc1N0cmluZwAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhBbXRBc3NldElkBAAAAAlhbUFzc2V0SWQJAAJZAAAAAQUAAAAMYW1Bc3NldElkU3RyBAAAAAxwckFzc2V0SWRTdHIJAQAAAAhhc1N0cmluZwAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAAA9pZHhQcmljZUFzc2V0SWQEAAAACXByQXNzZXRJZAkAAlkAAAABBQAAAAxwckFzc2V0SWRTdHIEAAAAC2FtdEFzc2V0RGNtCQEAAAAFYXNJbnQAAAABCQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4QW10QXNzZXREY20EAAAADXByaWNlQXNzZXREY20JAQAAAAVhc0ludAAAAAEJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQcmljZUFzc2V0RGNtBAAAAApwb29sU3RhdHVzCQEAAAAIYXNTdHJpbmcAAAABCQABkQAAAAIFAAAAA2NmZwUAAAANaWR4UG9vbFN0YXR1cwQAAAANcG9vbExQQmFsYW5jZQgJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+wAAAABBQAAAAlscEFzc2V0SWQJAAEsAAAAAgkAASwAAAACAgAAAAZBc3NldCAJAAJYAAAAAQUAAAAJbHBBc3NldElkAgAAAA4gZG9lc24ndCBleGlzdAAAAAhxdWFudGl0eQQAAAAMYW1CYWxhbmNlUmF3CQEAAAAFYXNJbnQAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAADGFtQXNzZXRJZFN0cgUAAAADbmlsBQAAAANuaWwEAAAADHByQmFsYW5jZVJhdwkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxwckFzc2V0SWRTdHIFAAAAA25pbAUAAAADbmlsBAAAAA9hbUJhbGFuY2VSYXdYMTgJAAGnAAAAAQkBAAAACGFzU3RyaW5nAAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAMYW1CYWxhbmNlUmF3CQAETAAAAAIFAAAAC2FtdEFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAQAAAAPcHJCYWxhbmNlUmF3WDE4CQABpwAAAAEJAQAAAAhhc1N0cmluZwAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFHRvWDE4V3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAADHByQmFsYW5jZVJhdwkABEwAAAACBQAAAA1wcmljZUFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAQAAAALY3VyUHJpY2VYMTgDCQAAAAAAAAIFAAAADXBvb2xMUEJhbGFuY2UAAAAAAAAAAAAFAAAACnplcm9CaWdJbnQJAAGnAAAAAQkBAAAACGFzU3RyaW5nAAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAeY2FsY1ByaWNlQmlnSW50V3JhcHBlclJFQURPTkxZCQAETAAAAAIJAAGmAAAAAQUAAAAPcHJCYWxhbmNlUmF3WDE4CQAETAAAAAIJAAGmAAAAAQUAAAAPYW1CYWxhbmNlUmF3WDE4BQAAAANuaWwFAAAAA25pbAQAAAAIY3VyUHJpY2UJAQAAAAVhc0ludAAAAAEJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFmZyb21YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAAAtjdXJQcmljZVgxOAkABEwAAAACBQAAAAVNVUxUOAUAAAADbmlsBQAAAANuaWwEAAAAD2luUHJBc3NldEFtdFgxOAkAAacAAAABCQEAAAAIYXNTdHJpbmcAAAABCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABR0b1gxOFdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxpblByQXNzZXRBbXQJAARMAAAAAgUAAAANcHJpY2VBc3NldERjbQUAAAADbmlsBQAAAANuaWwEAAAAD2luQW1Bc3NldEFtdFgxOAkAATwAAAADBQAAAA9pblByQXNzZXRBbXRYMTgFAAAABk1VTFQxOAUAAAALY3VyUHJpY2VYMTgEAAAADGluQW1Bc3NldEFtdAkBAAAABWFzSW50AAAAAQkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAWZnJvbVgxOFdyYXBwZXJSRUFET05MWQkABEwAAAACCQABpgAAAAEFAAAAD2luQW1Bc3NldEFtdFgxOAkABEwAAAACBQAAAAthbXRBc3NldERjbQUAAAADbmlsBQAAAANuaWwEAAAAA3JlcwkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAjZXN0aW1hdGVQdXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAARMAAAAAgIAAAAACQAETAAAAAIAAAAAAAAHoSAJAARMAAAAAgUAAAAMaW5BbUFzc2V0QW10CQAETAAAAAIFAAAACWFtQXNzZXRJZAkABEwAAAACBQAAAAxpblByQXNzZXRBbXQJAARMAAAAAgUAAAAJcHJBc3NldElkCQAETAAAAAICAAAAAAkABEwAAAACBgkABEwAAAACBwUAAAADbmlsBQAAAANuaWwEAAAADSR0MDI0OTk4MjUzNTEEAAAAByRtYXRjaDAFAAAAA3JlcwMDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8xAgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8zAgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl80AgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl81AgAAAANJbnQJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzYCAAAAA0ludAcHBwcEAAAACWNhbGNMcEFtdAgFAAAAByRtYXRjaDAAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAAByRtYXRjaDAAAAACXzMEAAAACWFtQmFsYW5jZQgFAAAAByRtYXRjaDAAAAACXzQEAAAACXByQmFsYW5jZQgFAAAAByRtYXRjaDAAAAACXzUEAAAACmxwRW1pc3Npb24IBQAAAAckbWF0Y2gwAAAAAl82CQAFFwAAAAUFAAAACWNhbGNMcEFtdAUAAAAMY3VyUHJpY2VDYWxjBQAAAAlhbUJhbGFuY2UFAAAACXByQmFsYW5jZQUAAAAKbHBFbWlzc2lvbgkAAAIAAAABAgAAABNDb3VsZG4ndCBjYXN0IHR5cGVzBAAAAAljYWxjTHBBbXQIBQAAAA0kdDAyNDk5ODI1MzUxAAAAAl8xBAAAAAxjdXJQcmljZUNhbGMIBQAAAA0kdDAyNDk5ODI1MzUxAAAAAl8yBAAAAAlhbUJhbGFuY2UIBQAAAA0kdDAyNDk5ODI1MzUxAAAAAl8zBAAAAAlwckJhbGFuY2UIBQAAAA0kdDAyNDk5ODI1MzUxAAAAAl80BAAAAApscEVtaXNzaW9uCAUAAAANJHQwMjQ5OTgyNTM1MQAAAAJfNQkABRQAAAACBQAAAANuaWwJAAS5AAAAAgkABEwAAAACAgAAABAlZCVkJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAAJY2FsY0xwQW10CQAETAAAAAIJAAGkAAAAAQUAAAAIY3VyUHJpY2UJAARMAAAAAgkAAaQAAAABBQAAAAlhbUJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAAlwckJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAApscEVtaXNzaW9uCQAETAAAAAIFAAAACnBvb2xTdGF0dXMJAARMAAAAAgkAAaQAAAABBQAAAAxpbkFtQXNzZXRBbXQJAARMAAAAAgkAAaQAAAABBQAAAAxpblByQXNzZXRBbXQFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAF3Bvb2xFdmFsdWF0ZUdldFJFQURPTkxZAAAAAgAAABBwYXltZW50THBBc3NldElkAAAADHBheW1lbnRMcEFtdAQAAAALcG9vbEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAAtmYWN0b3J5RGFwcAkBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQUAAAAQcGF5bWVudExwQXNzZXRJZAQAAAADcmVzCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAACNlc3RpbWF0ZUdldE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkABEwAAAACAgAAAAAJAARMAAAAAgUAAAAQcGF5bWVudExwQXNzZXRJZAkABEwAAAACBQAAAAxwYXltZW50THBBbXQJAARMAAAAAgkABCUAAAABBQAAAAtwb29sQWRkcmVzcwUAAAADbmlsBQAAAANuaWwEAAAADSR0MDI2MDQ2MjY0NjMEAAAAByRtYXRjaDAFAAAAA3JlcwMDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8xAgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl8yAgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl81AgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl82AgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl83AgAAAANJbnQDCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl84AgAAAAZTdHJpbmcJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzkCAAAABlN0cmluZwcHBwcHBwQAAAAIb3V0QW1BbXQIBQAAAAckbWF0Y2gwAAAAAl8xBAAAAAhvdXRQckFtdAgFAAAAByRtYXRjaDAAAAACXzIEAAAACWFtQmFsYW5jZQgFAAAAByRtYXRjaDAAAAACXzUEAAAACXByQmFsYW5jZQgFAAAAByRtYXRjaDAAAAACXzYEAAAACmxwRW1pc3Npb24IBQAAAAckbWF0Y2gwAAAAAl83BAAAAAhjdXJQcmljZQgFAAAAByRtYXRjaDAAAAACXzgEAAAACnBvb2xTdGF0dXMIBQAAAAckbWF0Y2gwAAAAAl85CQAFGQAAAAcFAAAACG91dEFtQW10BQAAAAhvdXRQckFtdAUAAAAJYW1CYWxhbmNlBQAAAAlwckJhbGFuY2UFAAAACmxwRW1pc3Npb24FAAAACGN1clByaWNlBQAAAApwb29sU3RhdHVzCQAAAgAAAAECAAAAE0NvdWxkbid0IGNhc3QgdHlwZXMEAAAACG91dEFtQW10CAUAAAANJHQwMjYwNDYyNjQ2MwAAAAJfMQQAAAAIb3V0UHJBbXQIBQAAAA0kdDAyNjA0NjI2NDYzAAAAAl8yBAAAAAlhbUJhbGFuY2UIBQAAAA0kdDAyNjA0NjI2NDYzAAAAAl8zBAAAAAlwckJhbGFuY2UIBQAAAA0kdDAyNjA0NjI2NDYzAAAAAl80BAAAAApscEVtaXNzaW9uCAUAAAANJHQwMjYwNDYyNjQ2MwAAAAJfNQQAAAAIY3VyUHJpY2UIBQAAAA0kdDAyNjA0NjI2NDYzAAAAAl82BAAAAApwb29sU3RhdHVzCAUAAAANJHQwMjYwNDYyNjQ2MwAAAAJfNwkABRQAAAACBQAAAANuaWwJAAS5AAAAAgkABEwAAAACAgAAAA4lZCVkJWQlZCVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAACG91dEFtQW10CQAETAAAAAIJAAGkAAAAAQUAAAAIb3V0UHJBbXQJAARMAAAAAgkAAaQAAAABBQAAAAlhbUJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAAlwckJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAApscEVtaXNzaW9uCQAETAAAAAIFAAAACGN1clByaWNlCQAETAAAAAIFAAAACnBvb2xTdGF0dXMFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAE2d3eFVzZXJJbmZvUkVBRE9OTFkAAAABAAAAC3VzZXJBZGRyZXNzBAAAAA9nd3hVc2VySW5mb0xJU1QJAQAAAAlhc0FueUxpc3QAAAABCQAD/AAAAAQFAAAADGJvb3N0aW5nRGFwcAIAAAATZ3d4VXNlckluZm9SRUFET05MWQkABEwAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsBQAAAANuaWwEAAAACWd3eEFtb3VudAkBAAAABWFzSW50AAAAAQkAAZEAAAACBQAAAA9nd3hVc2VySW5mb0xJU1QAAAAAAAAAAAAJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAACJWQJAARMAAAAAgkAAaQAAAABBQAAAAlnd3hBbW91bnQFAAAAA25pbAUAAAADU0VQAAAAAAG7CC8=",
    "chainId": 87,
    "height": 2907995,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: bc2FbE24WkgzLxtMdGoSbvyN1hRKQej5Wgn2fkmbc48
Next: 12ajvZriShiT1S35y9xV18kBbEAfpstoiL775pt12uLh

Diff: 
Old New Differences
12 12  let SEP = "__"
13 13  
14 14  let POOLWEIGHTMULT = MULT8
15 + 
16 + let zeroBigInt = toBigInt(0)
15 17  
16 18  let idxPoolAddress = 1
17 19  
112 114  func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
113 115  
114 116  
115 - func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
117 + func getBoostingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgBoostingDapp])
116 118  
117 119  
118 - func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
120 + func getEmissionAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgEmissionDapp])
119 121  
120 122  
121 - func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
123 + func getStakingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgStakingDapp])
122 124  
123 125  
124 - func getGwxRewardAddressOrFail (factoryCfg) = addressFromStringValue("3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n")
126 + func getGwxRewardAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgGwxRewardDapp])
125 127  
126 128  
127 129  func keyBoostCfg () = "%s__config"
217 219  func keyEmissionEndBlock () = "%s%s__emission__endBlock"
218 220  
219 221  
220 - func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
221 -     let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222 + let factoryDapp = readFactoryAddressOrFail()
223 + 
224 + let factoryCfg = readFactoryCfgOrFail(factoryDapp)
225 + 
226 + let emissionDapp = getEmissionAddressOrFail(factoryCfg)
227 + 
228 + let stakingDapp = getStakingAddressOrFail(factoryCfg)
229 + 
230 + let gwxRewardDapp = getGwxRewardAddressOrFail(factoryCfg)
231 + 
232 + let boostingDapp = getBoostingAddressOrFail(factoryCfg)
233 + 
234 + func internalCurrentRewardRate (lpAssetId) = {
235 +     let poolAddressStr = getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222 236      let poolWeightMult = MULT8
223 -     let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
224 -     let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
225 -     let wxEmissionPerBlockMax = getIntOrFail(emissionContract, keyEmissionRatePerBlockMaxCurrent())
237 +     let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
238 +     let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
239 +     let wxEmissionPerBlockMax = getIntOrFail(emissionDapp, keyEmissionRatePerBlockMaxCurrent())
226 240      let boostMaxCoeff = 3
227 241      let poolWxEmissionPerBlock = (fraction(wxEmissionPerBlock, poolWeight, poolWeightMult) / boostMaxCoeff)
228 242      let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
229 243      let maxFactor = (boostMaxCoeff * MULT8)
230 -     let totalLpStaked = getIntOrZero(stakingContract, keyStakedTotal(lpAssetId))
244 +     let totalLpStaked = getIntOrZero(stakingDapp, keyStakedTotal(lpAssetId))
231 245  [poolWxEmissionPerBlock, maxFactor, totalLpStaked]
232 246      }
233 247  
248 262  
249 263  @Callable(i)
250 264  func currentRewardRateREADONLY (lpAssetId) = {
251 -     let factoryContract = readFactoryAddressOrFail()
252 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
253 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
254 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
255 -     let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
265 +     let rewardData = internalCurrentRewardRate(lpAssetId)
256 266      let wxEmissionPerBlock = rewardData[0]
257 267      let maxFactor = rewardData[1]
258 268      let totalLpStaked = rewardData[2]
263 273  
264 274  @Callable(i)
265 275  func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
266 -     let factoryContract = readFactoryAddressOrFail()
267 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
268 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
269 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
270 -     let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
276 +     let rewardData = internalCurrentRewardRate(lpAssetId)
271 277      let wxEmissionPerBlock = rewardData[0]
272 278      let maxFactor = rewardData[1]
273 279      let totalLpStaked = rewardData[2]
274 -     let lpStakedByUser = getIntOrZero(stakingContract, keyStakedByUser(userAddress, lpAssetId))
275 -     let userClaimInfo = split(asString(invoke(stakingContract, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
280 +     let lpStakedByUser = getIntOrZero(stakingDapp, keyStakedByUser(userAddress, lpAssetId))
281 +     let userClaimInfo = split(asString(invoke(stakingDapp, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
276 282      let minRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[5]), "couldn't parse minRewardPart")
277 283      let boostRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[6]), "couldn't parse boostRewardPart")
278 284      let debug = userClaimInfo[7]
286 292  
287 293  @Callable(i)
288 294  func claimedRewardREADONLY (userAddress) = {
289 -     let factoryContract = readFactoryAddressOrFail()
290 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
291 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
292 295      let lpList = readLpList()
293 296      let prefix = "%s%d%d%d%s"
294 297      func claimedRewardByLpAggregator (resultStr,nextLp) =     {
295 298          let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(nextLp, userAddress)
296 299          let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(nextLp, userAddress)
297 -         let minRewardClaimed = valueOrElse(getInteger(stakingContract, claimedByUserMinRewardKEY), 0)
298 -         let boostRewardClaimed = valueOrElse(getInteger(stakingContract, claimedByUserBoostRewardKEY), 0)
300 +         let minRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserMinRewardKEY), 0)
301 +         let boostRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserBoostRewardKEY), 0)
299 302          let gFeeClaimed = 0
300 303          makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
301 304          }
304 307          let $l = lpList
305 308          let $s = size($l)
306 309          let $acc0 = "%s"
307 -         func 1 ($a,$i) =         if (($i >= $s))
310 +         func $f0_1 ($a,$i) =         if (($i >= $s))
308 311              then $a
309 312              else claimedRewardByLpAggregator($a, $l[$i])
310 313  
311 -         func 2 ($a,$i) =         if (($i >= $s))
314 +         func $f0_2 ($a,$i) =         if (($i >= $s))
312 315              then $a
313 316              else throw("List size exceeds 10")
314 317  
315 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
318 +         $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)
316 319          }
317 320      $Tuple2(nil, ((result + SEP) + userAddress))
318 321      }
321 324  
322 325  @Callable(i)
323 326  func calcBoostREADONLY (deltaWxAmount,deltaLockPeriodInBlocks,deltaLpAmount,lpAssetIdOpt,userAddressOpt) = {
324 -     let factoryContract = readFactoryAddressOrFail()
325 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
326 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
327 -     let mathContract = getGwxRewardAddressOrFail(factoryCfg)
328 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
329 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
327 +     let mathDapp = gwxRewardDapp
330 328      let EMPTYSTR = "empty"
331 -     let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingContract, keyBoostCfg()), SEP)[4])
329 +     let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingDapp, keyBoostCfg()), SEP)[4])
332 330      let lpAssetIdStr = if ((lpAssetIdOpt == ""))
333 331          then EMPTYSTR
334 332          else lpAssetIdOpt
335 333      let userAddressStr = if ((userAddressOpt == ""))
336 334          then EMPTYSTR
337 335          else userAddressOpt
338 -     let userNumStr = valueOrElse(getString(boostingContract, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
339 -     let userAmount = valueOrElse(getInteger(boostingContract, keyLockParamUserAmount(userNumStr)), 0)
340 -     let lockStart = valueOrElse(getInteger(boostingContract, keyLockParamStartBlock(userNumStr)), height)
341 -     let lockDuration = valueOrElse(getInteger(boostingContract, keyLockParamDuration(userNumStr)), 0)
336 +     let userNumStr = valueOrElse(getString(boostingDapp, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
337 +     let userAmount = valueOrElse(getInteger(boostingDapp, keyLockParamUserAmount(userNumStr)), 0)
338 +     let lockStart = valueOrElse(getInteger(boostingDapp, keyLockParamStartBlock(userNumStr)), height)
339 +     let lockDuration = valueOrElse(getInteger(boostingDapp, keyLockParamDuration(userNumStr)), 0)
342 340      let lockEnd = (lockStart + lockDuration)
343 341      let remainingDuration = max([(lockEnd - height), 0])
344 342      let userAmountNew = (userAmount + deltaWxAmount)
345 343      let lockDurationNew = min([(remainingDuration + deltaLockPeriodInBlocks), maxLockDurationInBlocks])
346 -     let userCurrgWxAmount = asInt(asAnyList(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
344 +     let userCurrgWxAmount = asInt(asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
347 345      let gWxAmountStartNew = calcGwxAmountStartREADONLY(userAmountNew, lockDurationNew, maxLockDurationInBlocks)[0]
348 -     let gWxParamsResultList = asAnyList(invoke(mathContract, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
346 +     let gWxParamsResultList = asAnyList(invoke(mathDapp, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
349 347      let gWxAmountDiff = (gWxAmountStartNew - userCurrgWxAmount)
350 348      let k = asInt(gWxParamsResultList[0])
351 349      let b = asInt(gWxParamsResultList[1])
353 351      let totalMaxBoostIntegralKEY = keyTotalMaxBoostINTEGRAL()
354 352      let totalCachedGwxKEY = keyTotalCachedGwx()
355 353      let userMaxBoostIntNew = ((gWxAmountStartNew * lockDurationNew) / 2)
356 -     let totalMaxBoostInt = getIntOrZero(boostingContract, totalMaxBoostIntegralKEY)
357 -     let totalCachedGwx = valueOrElse(getInteger(boostingContract, totalCachedGwxKEY), 0)
354 +     let totalMaxBoostInt = getIntOrZero(boostingDapp, totalMaxBoostIntegralKEY)
355 +     let totalCachedGwx = valueOrElse(getInteger(boostingDapp, totalCachedGwxKEY), 0)
358 356      let MULT3 = 1000
359 -     let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
357 +     let wxEmissionPerBlockX3 = (getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent()) * MULT3)
360 358      let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
361 359      let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
362 -     let stakedByUser = readStaked(stakingContract, stakedByUserKEY)
363 -     let stakedTotal = readStaked(stakingContract, stakedTotalKEY)
360 +     let stakedByUser = readStaked(stakingDapp, stakedByUserKEY)
361 +     let stakedTotal = readStaked(stakingDapp, stakedTotalKEY)
364 362      let stakedByUserNew = (stakedByUser + deltaLpAmount)
365 363      let stakedTotalNew = (stakedTotal + deltaLpAmount)
366 364      let poolWeight = if ((lpAssetIdStr != EMPTYSTR))
367 365          then {
368 -             let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
369 -             getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
366 +             let poolAddressStr = valueOrErrorMessage(getString(factoryDapp, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
367 +             getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
370 368              }
371 369          else 0
372 370      let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
390 388  func wxEmissionStatsREADONLY () = {
391 389      let ONEMULT = toString(MULT8)
392 390      let ONE = "1"
393 -     let factoryContract = readFactoryAddressOrFail()
394 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
395 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
396 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
397 -     let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
398 -     let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
391 +     let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
392 +     let emissionStartBlock = getIntOrFail(emissionDapp, keyEmissionStartBlock())
399 393      let passedBlocks = if ((emissionStartBlock > height))
400 394          then 0
401 395          else (height - emissionStartBlock)
405 399          then teamEmMax
406 400          else fraction(teamEmMax, passedBlocks, teamEmDuration)
407 401      let totalWxReleased = ((wxEmissionPerBlock * passedBlocks) + teamEm)
408 -     let totalWxLocked = getIntOrZero(boostingContract, keyBoostingLockParamTotalAmount())
409 -     let locksDurationSumInBlocks = getIntOrZero(boostingContract, keyBoostingStatsLocksDurationSumInBlocks())
410 -     let locksCount = getIntOrZero(boostingContract, keyBoostingStatsLocksCount())
402 +     let totalWxLocked = getIntOrZero(boostingDapp, keyBoostingLockParamTotalAmount())
403 +     let locksDurationSumInBlocks = getIntOrZero(boostingDapp, keyBoostingStatsLocksDurationSumInBlocks())
404 +     let locksCount = getIntOrZero(boostingDapp, keyBoostingStatsLocksCount())
411 405      $Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
412 406      }
413 407  
414 408  
415 409  
416 410  @Callable(i)
417 - func lpStatsREADONLY (lpAsset) = {
418 -     let factoryAddress = readFactoryAddressOrFail()
419 -     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
420 -     let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
421 -         then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
422 -         else throw("Couldn't cast Any to List[Any]")
423 -     let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
424 -         then cfg[idxPoolLPAssetId]
425 -         else throw("Couldn't cast Any to String"))
426 -     let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
427 -         then cfg[idxAmtAssetId]
428 -         else throw("Couldn't cast Any to String")
429 -     let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
430 -         then cfg[idxPriceAssetId]
431 -         else throw("Couldn't cast Any to String")
432 -     let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
433 -         then cfg[idxIAmtAssetId]
434 -         else throw("Couldn't cast Any to String")
435 -     let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
436 -         then cfg[idxIPriceAssetId]
437 -         else throw("Couldn't cast Any to String")
438 -     let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
439 -         then cfg[idxAmtAssetDcm]
440 -         else throw("Couldn't cast Any to String"))
441 -     let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
442 -         then cfg[idxPriceAssetDcm]
443 -         else throw("Couldn't cast Any to String"))
411 + func poolStatsREADONLY (lpAsset) = {
412 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
413 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
414 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
415 +     let amtAssetId = asString(cfg[idxAmtAssetId])
416 +     let priceAssetId = asString(cfg[idxPriceAssetId])
417 +     let iAmtAssetId = asString(cfg[idxIAmtAssetId])
418 +     let iPriceAssetId = asString(cfg[idxIPriceAssetId])
419 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
420 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
444 421      let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
445 -     let accAmtAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil), "Int"))
446 -         then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
447 -         else throw("Couldn't cast Any to Int")
448 -     let accPriceAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil), "Int"))
449 -         then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
450 -         else throw("Couldn't cast Any to Int")
451 -     let pricesList = if ($isInstanceOf(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil), "List[Any]"))
452 -         then invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
453 -         else throw("Couldn't cast Any to List[Any]")
422 +     let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil))
423 +     let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil))
424 +     let pricesList = if ((poolLPBalance == 0))
425 +         then [toString(zeroBigInt), toString(zeroBigInt), toString(zeroBigInt)]
426 +         else asAnyList(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil))
454 427      let curPrice = 0
455 -     let lpAmtAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil), "Int"))
456 -         then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
457 -         else throw("Couldn't cast Any to Int")
458 -     let lpPriceAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil), "Int"))
459 -         then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
460 -         else throw("Couldn't cast Any to Int")
461 -     let poolWeight = getIntegerValue(factoryAddress, keyFactoryPoolWeight(toString(poolAddress)))
428 +     let lpAmtAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil))
429 +     let lpPriceAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil))
430 +     let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(toString(poolAddress)))
462 431      $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
463 432      }
464 433  
465 434  
466 435  
467 436  @Callable(i)
437 + func poolEvaluatePutByAmountAssetREADONLY (lpAsset,inAmAssetAmt) = {
438 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
439 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
440 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
441 +     let amAssetIdStr = asString(cfg[idxAmtAssetId])
442 +     let amAssetId = fromBase58String(amAssetIdStr)
443 +     let prAssetIdStr = asString(cfg[idxPriceAssetId])
444 +     let prAssetId = fromBase58String(prAssetIdStr)
445 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
446 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
447 +     let poolStatus = asString(cfg[idxPoolStatus])
448 +     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
449 +     let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
450 +     let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
451 +     let amtAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accAmtAssetBalance, amtAssetDcm], nil)))
452 +     let priceAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accPriceAssetBalance, priceAssetDcm], nil)))
453 +     let curPriceX18 = if ((poolLPBalance == 0))
454 +         then zeroBigInt
455 +         else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(priceAssetAmtX18), toString(amtAssetAmtX18)], nil)))
456 +     let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
457 +     let inAmAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inAmAssetAmt, amtAssetDcm], nil)))
458 +     let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, MULT18)
459 +     let inPrAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inPrAssetAmtX18), priceAssetDcm], nil))
460 +     let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
461 +     let $t02211022463 =     match res {
462 +         case _ => 
463 +             if (if ($isInstanceOf($match0._1, "Int"))
464 +                 then if ($isInstanceOf($match0._3, "Int"))
465 +                     then if ($isInstanceOf($match0._4, "Int"))
466 +                         then if ($isInstanceOf($match0._5, "Int"))
467 +                             then $isInstanceOf($match0._6, "Int")
468 +                             else false
469 +                         else false
470 +                     else false
471 +                 else false)
472 +                 then {
473 +                     let calcLpAmt = $match0._1
474 +                     let curPriceCalc = $match0._3
475 +                     let amBalance = $match0._4
476 +                     let prBalance = $match0._5
477 +                     let lpEmission = $match0._6
478 +                     $Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
479 +                     }
480 +                 else throw("Couldn't cast types")
481 +     }
482 +     let calcLpAmt = $t02211022463._1
483 +     let curPriceCalc = $t02211022463._2
484 +     let amBalance = $t02211022463._3
485 +     let prBalance = $t02211022463._4
486 +     let lpEmission = $t02211022463._5
487 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
488 +     }
489 + 
490 + 
491 + 
492 + @Callable(i)
493 + func poolEvaluatePutByPriceAssetREADONLY (lpAsset,inPrAssetAmt) = {
494 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
495 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
496 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
497 +     let amAssetIdStr = asString(cfg[idxAmtAssetId])
498 +     let amAssetId = fromBase58String(amAssetIdStr)
499 +     let prAssetIdStr = asString(cfg[idxPriceAssetId])
500 +     let prAssetId = fromBase58String(prAssetIdStr)
501 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
502 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
503 +     let poolStatus = asString(cfg[idxPoolStatus])
504 +     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
505 +     let amBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
506 +     let prBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
507 +     let amBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [amBalanceRaw, amtAssetDcm], nil)))
508 +     let prBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [prBalanceRaw, priceAssetDcm], nil)))
509 +     let curPriceX18 = if ((poolLPBalance == 0))
510 +         then zeroBigInt
511 +         else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(prBalanceRawX18), toString(amBalanceRawX18)], nil)))
512 +     let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
513 +     let inPrAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inPrAssetAmt, priceAssetDcm], nil)))
514 +     let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, MULT18, curPriceX18)
515 +     let inAmAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inAmAssetAmtX18), amtAssetDcm], nil))
516 +     let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
517 +     let $t02499825351 =     match res {
518 +         case _ => 
519 +             if (if ($isInstanceOf($match0._1, "Int"))
520 +                 then if ($isInstanceOf($match0._3, "Int"))
521 +                     then if ($isInstanceOf($match0._4, "Int"))
522 +                         then if ($isInstanceOf($match0._5, "Int"))
523 +                             then $isInstanceOf($match0._6, "Int")
524 +                             else false
525 +                         else false
526 +                     else false
527 +                 else false)
528 +                 then {
529 +                     let calcLpAmt = $match0._1
530 +                     let curPriceCalc = $match0._3
531 +                     let amBalance = $match0._4
532 +                     let prBalance = $match0._5
533 +                     let lpEmission = $match0._6
534 +                     $Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
535 +                     }
536 +                 else throw("Couldn't cast types")
537 +     }
538 +     let calcLpAmt = $t02499825351._1
539 +     let curPriceCalc = $t02499825351._2
540 +     let amBalance = $t02499825351._3
541 +     let prBalance = $t02499825351._4
542 +     let lpEmission = $t02499825351._5
543 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
544 +     }
545 + 
546 + 
547 + 
548 + @Callable(i)
549 + func poolEvaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
550 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(paymentLpAssetId)))
551 +     let res = invoke(poolAddress, "estimateGetOperationWrapperREADONLY", ["", paymentLpAssetId, paymentLpAmt, toString(poolAddress)], nil)
552 +     let $t02604626463 =     match res {
553 +         case _ => 
554 +             if (if ($isInstanceOf($match0._1, "Int"))
555 +                 then if ($isInstanceOf($match0._2, "Int"))
556 +                     then if ($isInstanceOf($match0._5, "Int"))
557 +                         then if ($isInstanceOf($match0._6, "Int"))
558 +                             then if ($isInstanceOf($match0._7, "Int"))
559 +                                 then if ($isInstanceOf($match0._8, "String"))
560 +                                     then $isInstanceOf($match0._9, "String")
561 +                                     else false
562 +                                 else false
563 +                             else false
564 +                         else false
565 +                     else false
566 +                 else false)
567 +                 then {
568 +                     let outAmAmt = $match0._1
569 +                     let outPrAmt = $match0._2
570 +                     let amBalance = $match0._5
571 +                     let prBalance = $match0._6
572 +                     let lpEmission = $match0._7
573 +                     let curPrice = $match0._8
574 +                     let poolStatus = $match0._9
575 +                     $Tuple7(outAmAmt, outPrAmt, amBalance, prBalance, lpEmission, curPrice, poolStatus)
576 +                     }
577 +                 else throw("Couldn't cast types")
578 +     }
579 +     let outAmAmt = $t02604626463._1
580 +     let outPrAmt = $t02604626463._2
581 +     let amBalance = $t02604626463._3
582 +     let prBalance = $t02604626463._4
583 +     let lpEmission = $t02604626463._5
584 +     let curPrice = $t02604626463._6
585 +     let poolStatus = $t02604626463._7
586 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), curPrice, poolStatus], SEP))
587 +     }
588 + 
589 + 
590 + 
591 + @Callable(i)
468 592  func gwxUserInfoREADONLY (userAddress) = {
469 -     let factoryContract = readFactoryAddressOrFail()
470 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
471 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
472 -     let gwxUserInfoLIST = if ($isInstanceOf(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil), "List[Any]"))
473 -         then invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil)
474 -         else throw("Couldn't cast Any to List[Any]")
475 -     let gwxAmount = if ($isInstanceOf(gwxUserInfoLIST[0], "Int"))
476 -         then gwxUserInfoLIST[0]
477 -         else throw("Couldn't cast Any to Int")
593 +     let gwxUserInfoLIST = asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddress], nil))
594 +     let gwxAmount = asInt(gwxUserInfoLIST[0])
478 595      $Tuple2(nil, makeString(["%d", toString(gwxAmount)], SEP))
479 596      }
480 597  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let SCALE8 = 8
5 5  
6 6  let MULT8 = 100000000
7 7  
8 8  let SCALE18 = 18
9 9  
10 10  let MULT18 = toBigInt(1000000000000000000)
11 11  
12 12  let SEP = "__"
13 13  
14 14  let POOLWEIGHTMULT = MULT8
15 + 
16 + let zeroBigInt = toBigInt(0)
15 17  
16 18  let idxPoolAddress = 1
17 19  
18 20  let idxPoolStatus = 2
19 21  
20 22  let idxPoolLPAssetId = 3
21 23  
22 24  let idxAmtAssetId = 4
23 25  
24 26  let idxPriceAssetId = 5
25 27  
26 28  let idxAmtAssetDcm = 6
27 29  
28 30  let idxPriceAssetDcm = 7
29 31  
30 32  let idxIAmtAssetId = 8
31 33  
32 34  let idxIPriceAssetId = 9
33 35  
34 36  let idxLPAssetDcm = 10
35 37  
36 38  func getStringOrFail (key) = valueOrErrorMessage(getString(key), (("mandatory this." + key) + " is not defined"))
37 39  
38 40  
39 41  func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
40 42  
41 43  
42 44  func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
43 45  
44 46  
45 47  func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
46 48  
47 49  
48 50  func asAnyList (val) = match val {
49 51      case valAnyLyst: List[Any] => 
50 52          valAnyLyst
51 53      case _ => 
52 54          throw("fail to cast into List[Any]")
53 55  }
54 56  
55 57  
56 58  func asInt (val) = match val {
57 59      case valInt: Int => 
58 60          valInt
59 61      case _ => 
60 62          throw("fail to cast into Int")
61 63  }
62 64  
63 65  
64 66  func asString (val) = match val {
65 67      case valStr: String => 
66 68          valStr
67 69      case _ => 
68 70          throw("fail to cast into String")
69 71  }
70 72  
71 73  
72 74  func keyFactoryAddress () = "%s%s__config__factoryAddress"
73 75  
74 76  
75 77  let IdxFactoryCfgStakingDapp = 1
76 78  
77 79  let IdxFactoryCfgBoostingDapp = 2
78 80  
79 81  let IdxFactoryCfgIdoDapp = 3
80 82  
81 83  let IdxFactoryCfgTeamDapp = 4
82 84  
83 85  let IdxFactoryCfgEmissionDapp = 5
84 86  
85 87  let IdxFactoryCfgRestDapp = 6
86 88  
87 89  let IdxFactoryCfgSlippageDapp = 7
88 90  
89 91  let IdxFactoryCfgGwxRewardDapp = 8
90 92  
91 93  func keyFactoryCfg () = "%s__factoryConfig"
92 94  
93 95  
94 96  func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
95 97  
96 98  
97 99  func keyFactoryLpList () = "%s__lpTokensList"
98 100  
99 101  
100 102  func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
101 103  
102 104  
103 105  func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
104 106  
105 107  
106 108  func readFactoryAddressOrFail () = addressFromStringValue(getStringOrFail(keyFactoryAddress()))
107 109  
108 110  
109 111  func readLpList () = split(valueOrElse(getString(readFactoryAddressOrFail(), keyFactoryLpList()), ""), SEP)
110 112  
111 113  
112 114  func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
113 115  
114 116  
115 - func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
117 + func getBoostingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgBoostingDapp])
116 118  
117 119  
118 - func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
120 + func getEmissionAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgEmissionDapp])
119 121  
120 122  
121 - func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
123 + func getStakingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgStakingDapp])
122 124  
123 125  
124 - func getGwxRewardAddressOrFail (factoryCfg) = addressFromStringValue("3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n")
126 + func getGwxRewardAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgGwxRewardDapp])
125 127  
126 128  
127 129  func keyBoostCfg () = "%s__config"
128 130  
129 131  
130 132  func keyBoostingLockParamTotalAmount () = "%s%s__stats__activeTotalLocked"
131 133  
132 134  
133 135  func keyBoostingStatsLocksDurationSumInBlocks () = "%s%s__stats__locksDurationSumInBlocks"
134 136  
135 137  
136 138  func keyBoostingStatsLocksCount () = "%s%s__stats__locksCount"
137 139  
138 140  
139 141  func keyBoostingStatsUsersCount () = "%s%s__stats__activeUsersCount"
140 142  
141 143  
142 144  func keyUser2NumMapping (userAddress) = makeString(["%s%s%s__mapping__user2num", userAddress], SEP)
143 145  
144 146  
145 147  func keyNum2UserMapping (num) = makeString(["%s%s%s__mapping__num2user", num], SEP)
146 148  
147 149  
148 150  func keyLockParamUserAmount (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "amount"], SEP)
149 151  
150 152  
151 153  func keyLockParamStartBlock (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "start"], SEP)
152 154  
153 155  
154 156  func keyLockParamDuration (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "duration"], SEP)
155 157  
156 158  
157 159  func keyLockParamK (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "k"], SEP)
158 160  
159 161  
160 162  func keyLockParamB (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "b"], SEP)
161 163  
162 164  
163 165  func keyLockParamByPeriodK (userNum,period) = makeString(["%s%d%s%d__paramByPeriod", userNum, "k", period], SEP)
164 166  
165 167  
166 168  func keyLockParamByPeriodB (userNum,period) = makeString(["%s%d%s%d__paramByPeriod", userNum, "b", period], SEP)
167 169  
168 170  
169 171  func keyUserBoostEmissionLastINTEGRAL (userNum) = makeString(["%s%d__userBoostEmissionLastInt", userNum], SEP)
170 172  
171 173  
172 174  func keyUserMaxBoostINTEGRAL (userNum) = makeString(["%s%d__maxBoostInt", userNum], SEP)
173 175  
174 176  
175 177  func keyTotalMaxBoostINTEGRAL () = "%s%s__maxBoostInt__total"
176 178  
177 179  
178 180  func keyUserBoostAvalaibleToClaimTotal (userNum) = makeString(["%s%d__userBoostAvaliableToClaimTotal", userNum], SEP)
179 181  
180 182  
181 183  func keyUserBoostClaimed (userNum) = makeString(["%s%d__userBoostClaimed", userNum], SEP)
182 184  
183 185  
184 186  func keyTotalCachedGwx () = "%s%s__gwxCached__total"
185 187  
186 188  
187 189  func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
188 190  
189 191  
190 192  func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
191 193  
192 194  
193 195  func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
194 196  
195 197  
196 198  func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
197 199  
198 200  
199 201  func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
200 202  
201 203  
202 204  func readStaked (stakingDapp,key) = valueOrElse(getInteger(stakingDapp, key), 0)
203 205  
204 206  
205 207  func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
206 208  
207 209  
208 210  func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
209 211  
210 212  
211 213  func keyEmissionStartBlock () = "%s%s__emission__startBlock"
212 214  
213 215  
214 216  func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
215 217  
216 218  
217 219  func keyEmissionEndBlock () = "%s%s__emission__endBlock"
218 220  
219 221  
220 - func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
221 -     let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222 + let factoryDapp = readFactoryAddressOrFail()
223 + 
224 + let factoryCfg = readFactoryCfgOrFail(factoryDapp)
225 + 
226 + let emissionDapp = getEmissionAddressOrFail(factoryCfg)
227 + 
228 + let stakingDapp = getStakingAddressOrFail(factoryCfg)
229 + 
230 + let gwxRewardDapp = getGwxRewardAddressOrFail(factoryCfg)
231 + 
232 + let boostingDapp = getBoostingAddressOrFail(factoryCfg)
233 + 
234 + func internalCurrentRewardRate (lpAssetId) = {
235 +     let poolAddressStr = getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222 236      let poolWeightMult = MULT8
223 -     let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
224 -     let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
225 -     let wxEmissionPerBlockMax = getIntOrFail(emissionContract, keyEmissionRatePerBlockMaxCurrent())
237 +     let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
238 +     let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
239 +     let wxEmissionPerBlockMax = getIntOrFail(emissionDapp, keyEmissionRatePerBlockMaxCurrent())
226 240      let boostMaxCoeff = 3
227 241      let poolWxEmissionPerBlock = (fraction(wxEmissionPerBlock, poolWeight, poolWeightMult) / boostMaxCoeff)
228 242      let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
229 243      let maxFactor = (boostMaxCoeff * MULT8)
230 -     let totalLpStaked = getIntOrZero(stakingContract, keyStakedTotal(lpAssetId))
244 +     let totalLpStaked = getIntOrZero(stakingDapp, keyStakedTotal(lpAssetId))
231 245  [poolWxEmissionPerBlock, maxFactor, totalLpStaked]
232 246      }
233 247  
234 248  
235 249  func calcGwxAmountStartREADONLY (lockAmount,lockDuration,maxLockDuration) = {
236 250      let coeffX8 = fraction(lockDuration, MULT8, maxLockDuration)
237 251      let gWxAmountStart = fraction(lockAmount, coeffX8, MULT8)
238 252  [gWxAmountStart]
239 253      }
240 254  
241 255  
242 256  @Callable(i)
243 257  func constructor (factoryAddress) = if ((i.caller != this))
244 258      then throw("not authorized")
245 259      else [StringEntry(keyFactoryAddress(), factoryAddress)]
246 260  
247 261  
248 262  
249 263  @Callable(i)
250 264  func currentRewardRateREADONLY (lpAssetId) = {
251 -     let factoryContract = readFactoryAddressOrFail()
252 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
253 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
254 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
255 -     let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
265 +     let rewardData = internalCurrentRewardRate(lpAssetId)
256 266      let wxEmissionPerBlock = rewardData[0]
257 267      let maxFactor = rewardData[1]
258 268      let totalLpStaked = rewardData[2]
259 269      $Tuple2(nil, makeString(["%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked)], SEP))
260 270      }
261 271  
262 272  
263 273  
264 274  @Callable(i)
265 275  func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
266 -     let factoryContract = readFactoryAddressOrFail()
267 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
268 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
269 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
270 -     let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
276 +     let rewardData = internalCurrentRewardRate(lpAssetId)
271 277      let wxEmissionPerBlock = rewardData[0]
272 278      let maxFactor = rewardData[1]
273 279      let totalLpStaked = rewardData[2]
274 -     let lpStakedByUser = getIntOrZero(stakingContract, keyStakedByUser(userAddress, lpAssetId))
275 -     let userClaimInfo = split(asString(invoke(stakingContract, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
280 +     let lpStakedByUser = getIntOrZero(stakingDapp, keyStakedByUser(userAddress, lpAssetId))
281 +     let userClaimInfo = split(asString(invoke(stakingDapp, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
276 282      let minRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[5]), "couldn't parse minRewardPart")
277 283      let boostRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[6]), "couldn't parse boostRewardPart")
278 284      let debug = userClaimInfo[7]
279 285      let boostingPower = if ((boostRewardPart == 0))
280 286          then (1 * MULT8)
281 287          else fraction((minRewardPart + boostRewardPart), MULT8, minRewardPart)
282 288      $Tuple2(nil, makeString(["%d%d%d%d%d%s", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower), debug], SEP))
283 289      }
284 290  
285 291  
286 292  
287 293  @Callable(i)
288 294  func claimedRewardREADONLY (userAddress) = {
289 -     let factoryContract = readFactoryAddressOrFail()
290 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
291 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
292 295      let lpList = readLpList()
293 296      let prefix = "%s%d%d%d%s"
294 297      func claimedRewardByLpAggregator (resultStr,nextLp) =     {
295 298          let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(nextLp, userAddress)
296 299          let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(nextLp, userAddress)
297 -         let minRewardClaimed = valueOrElse(getInteger(stakingContract, claimedByUserMinRewardKEY), 0)
298 -         let boostRewardClaimed = valueOrElse(getInteger(stakingContract, claimedByUserBoostRewardKEY), 0)
300 +         let minRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserMinRewardKEY), 0)
301 +         let boostRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserBoostRewardKEY), 0)
299 302          let gFeeClaimed = 0
300 303          makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
301 304          }
302 305  
303 306      let result = {
304 307          let $l = lpList
305 308          let $s = size($l)
306 309          let $acc0 = "%s"
307 -         func 1 ($a,$i) =         if (($i >= $s))
310 +         func $f0_1 ($a,$i) =         if (($i >= $s))
308 311              then $a
309 312              else claimedRewardByLpAggregator($a, $l[$i])
310 313  
311 -         func 2 ($a,$i) =         if (($i >= $s))
314 +         func $f0_2 ($a,$i) =         if (($i >= $s))
312 315              then $a
313 316              else throw("List size exceeds 10")
314 317  
315 -         2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
318 +         $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)
316 319          }
317 320      $Tuple2(nil, ((result + SEP) + userAddress))
318 321      }
319 322  
320 323  
321 324  
322 325  @Callable(i)
323 326  func calcBoostREADONLY (deltaWxAmount,deltaLockPeriodInBlocks,deltaLpAmount,lpAssetIdOpt,userAddressOpt) = {
324 -     let factoryContract = readFactoryAddressOrFail()
325 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
326 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
327 -     let mathContract = getGwxRewardAddressOrFail(factoryCfg)
328 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
329 -     let stakingContract = getStakingAddressOrFail(factoryCfg)
327 +     let mathDapp = gwxRewardDapp
330 328      let EMPTYSTR = "empty"
331 -     let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingContract, keyBoostCfg()), SEP)[4])
329 +     let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingDapp, keyBoostCfg()), SEP)[4])
332 330      let lpAssetIdStr = if ((lpAssetIdOpt == ""))
333 331          then EMPTYSTR
334 332          else lpAssetIdOpt
335 333      let userAddressStr = if ((userAddressOpt == ""))
336 334          then EMPTYSTR
337 335          else userAddressOpt
338 -     let userNumStr = valueOrElse(getString(boostingContract, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
339 -     let userAmount = valueOrElse(getInteger(boostingContract, keyLockParamUserAmount(userNumStr)), 0)
340 -     let lockStart = valueOrElse(getInteger(boostingContract, keyLockParamStartBlock(userNumStr)), height)
341 -     let lockDuration = valueOrElse(getInteger(boostingContract, keyLockParamDuration(userNumStr)), 0)
336 +     let userNumStr = valueOrElse(getString(boostingDapp, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
337 +     let userAmount = valueOrElse(getInteger(boostingDapp, keyLockParamUserAmount(userNumStr)), 0)
338 +     let lockStart = valueOrElse(getInteger(boostingDapp, keyLockParamStartBlock(userNumStr)), height)
339 +     let lockDuration = valueOrElse(getInteger(boostingDapp, keyLockParamDuration(userNumStr)), 0)
342 340      let lockEnd = (lockStart + lockDuration)
343 341      let remainingDuration = max([(lockEnd - height), 0])
344 342      let userAmountNew = (userAmount + deltaWxAmount)
345 343      let lockDurationNew = min([(remainingDuration + deltaLockPeriodInBlocks), maxLockDurationInBlocks])
346 -     let userCurrgWxAmount = asInt(asAnyList(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
344 +     let userCurrgWxAmount = asInt(asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
347 345      let gWxAmountStartNew = calcGwxAmountStartREADONLY(userAmountNew, lockDurationNew, maxLockDurationInBlocks)[0]
348 -     let gWxParamsResultList = asAnyList(invoke(mathContract, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
346 +     let gWxParamsResultList = asAnyList(invoke(mathDapp, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
349 347      let gWxAmountDiff = (gWxAmountStartNew - userCurrgWxAmount)
350 348      let k = asInt(gWxParamsResultList[0])
351 349      let b = asInt(gWxParamsResultList[1])
352 350      let period = toString(asInt(gWxParamsResultList[2]))
353 351      let totalMaxBoostIntegralKEY = keyTotalMaxBoostINTEGRAL()
354 352      let totalCachedGwxKEY = keyTotalCachedGwx()
355 353      let userMaxBoostIntNew = ((gWxAmountStartNew * lockDurationNew) / 2)
356 -     let totalMaxBoostInt = getIntOrZero(boostingContract, totalMaxBoostIntegralKEY)
357 -     let totalCachedGwx = valueOrElse(getInteger(boostingContract, totalCachedGwxKEY), 0)
354 +     let totalMaxBoostInt = getIntOrZero(boostingDapp, totalMaxBoostIntegralKEY)
355 +     let totalCachedGwx = valueOrElse(getInteger(boostingDapp, totalCachedGwxKEY), 0)
358 356      let MULT3 = 1000
359 -     let wxEmissionPerBlockX3 = (getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent()) * MULT3)
357 +     let wxEmissionPerBlockX3 = (getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent()) * MULT3)
360 358      let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
361 359      let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
362 -     let stakedByUser = readStaked(stakingContract, stakedByUserKEY)
363 -     let stakedTotal = readStaked(stakingContract, stakedTotalKEY)
360 +     let stakedByUser = readStaked(stakingDapp, stakedByUserKEY)
361 +     let stakedTotal = readStaked(stakingDapp, stakedTotalKEY)
364 362      let stakedByUserNew = (stakedByUser + deltaLpAmount)
365 363      let stakedTotalNew = (stakedTotal + deltaLpAmount)
366 364      let poolWeight = if ((lpAssetIdStr != EMPTYSTR))
367 365          then {
368 -             let poolAddressStr = valueOrErrorMessage(getString(factoryContract, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
369 -             getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
366 +             let poolAddressStr = valueOrErrorMessage(getString(factoryDapp, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
367 +             getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
370 368              }
371 369          else 0
372 370      let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
373 371      let wxPerLpX3 = if ((stakedTotalNew != 0))
374 372          then fraction(poolWxEmissionPerBlockX3, MULT8, stakedTotalNew)
375 373          else 0
376 374      let userWxPerBlockX3 = fraction(wxPerLpX3, stakedByUserNew, MULT8)
377 375      let boostEmissionPerBlockX3 = (poolWxEmissionPerBlockX3 * 2)
378 376      let tmpUserBoostPerBlockX3 = fraction(gWxAmountStartNew, boostEmissionPerBlockX3, (totalCachedGwx + gWxAmountDiff))
379 377      let userBoostPerBlockX3 = min([tmpUserBoostPerBlockX3, (userWxPerBlockX3 * 2)])
380 378      let boostCoeff = if ((userWxPerBlockX3 == 0))
381 379          then (1 * MULT8)
382 380          else fraction((userBoostPerBlockX3 + userWxPerBlockX3), MULT8, userWxPerBlockX3)
383 381      let debug = makeString([("lpAssetIdStr=" + lpAssetIdStr), ("userAddressStr=" + userAddressStr), ("userNumStr=" + userNumStr), ("userAmount=" + toString(userAmount)), ("userAmountNew=" + toString(userAmountNew)), ("lockDurationNew=" + toString(lockDurationNew)), ("gWxAmountStart=" + toString(gWxAmountStartNew)), ("tmpUserBoostPerBlockX3=" + toString(tmpUserBoostPerBlockX3)), ("stakedByUserNew=" + toString(stakedByUserNew)), ("stakedTotalNew=" + toString(stakedTotalNew)), ("poolWeight=" + toString(poolWeight)), ("wxPerLpX3=" + toString(wxPerLpX3)), ("poolWxEmissionPerBlockX3=" + toString(poolWxEmissionPerBlockX3)), ("userWxPerBlockX3=" + toString(userWxPerBlockX3)), ("gWxAmountDiff=" + toString(gWxAmountDiff)), ("totalCachedGwx=" + toString(totalCachedGwx)), ("userCurrgWxAmount=" + toString(userCurrgWxAmount))], "::")
384 382      $Tuple2(nil, makeString(["%d%d%s", toString(gWxAmountStartNew), toString(boostCoeff), debug], SEP))
385 383      }
386 384  
387 385  
388 386  
389 387  @Callable(i)
390 388  func wxEmissionStatsREADONLY () = {
391 389      let ONEMULT = toString(MULT8)
392 390      let ONE = "1"
393 -     let factoryContract = readFactoryAddressOrFail()
394 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
395 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
396 -     let emissionContract = getEmissionAddressOrFail(factoryCfg)
397 -     let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
398 -     let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
391 +     let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
392 +     let emissionStartBlock = getIntOrFail(emissionDapp, keyEmissionStartBlock())
399 393      let passedBlocks = if ((emissionStartBlock > height))
400 394          then 0
401 395          else (height - emissionStartBlock)
402 396      let teamEmDuration = (1440 * 365)
403 397      let teamEmMax = (201000000 * MULT8)
404 398      let teamEm = if ((passedBlocks > teamEmDuration))
405 399          then teamEmMax
406 400          else fraction(teamEmMax, passedBlocks, teamEmDuration)
407 401      let totalWxReleased = ((wxEmissionPerBlock * passedBlocks) + teamEm)
408 -     let totalWxLocked = getIntOrZero(boostingContract, keyBoostingLockParamTotalAmount())
409 -     let locksDurationSumInBlocks = getIntOrZero(boostingContract, keyBoostingStatsLocksDurationSumInBlocks())
410 -     let locksCount = getIntOrZero(boostingContract, keyBoostingStatsLocksCount())
402 +     let totalWxLocked = getIntOrZero(boostingDapp, keyBoostingLockParamTotalAmount())
403 +     let locksDurationSumInBlocks = getIntOrZero(boostingDapp, keyBoostingStatsLocksDurationSumInBlocks())
404 +     let locksCount = getIntOrZero(boostingDapp, keyBoostingStatsLocksCount())
411 405      $Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
412 406      }
413 407  
414 408  
415 409  
416 410  @Callable(i)
417 - func lpStatsREADONLY (lpAsset) = {
418 -     let factoryAddress = readFactoryAddressOrFail()
419 -     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
420 -     let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
421 -         then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
422 -         else throw("Couldn't cast Any to List[Any]")
423 -     let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
424 -         then cfg[idxPoolLPAssetId]
425 -         else throw("Couldn't cast Any to String"))
426 -     let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
427 -         then cfg[idxAmtAssetId]
428 -         else throw("Couldn't cast Any to String")
429 -     let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
430 -         then cfg[idxPriceAssetId]
431 -         else throw("Couldn't cast Any to String")
432 -     let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
433 -         then cfg[idxIAmtAssetId]
434 -         else throw("Couldn't cast Any to String")
435 -     let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
436 -         then cfg[idxIPriceAssetId]
437 -         else throw("Couldn't cast Any to String")
438 -     let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
439 -         then cfg[idxAmtAssetDcm]
440 -         else throw("Couldn't cast Any to String"))
441 -     let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
442 -         then cfg[idxPriceAssetDcm]
443 -         else throw("Couldn't cast Any to String"))
411 + func poolStatsREADONLY (lpAsset) = {
412 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
413 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
414 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
415 +     let amtAssetId = asString(cfg[idxAmtAssetId])
416 +     let priceAssetId = asString(cfg[idxPriceAssetId])
417 +     let iAmtAssetId = asString(cfg[idxIAmtAssetId])
418 +     let iPriceAssetId = asString(cfg[idxIPriceAssetId])
419 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
420 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
444 421      let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
445 -     let accAmtAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil), "Int"))
446 -         then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
447 -         else throw("Couldn't cast Any to Int")
448 -     let accPriceAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil), "Int"))
449 -         then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
450 -         else throw("Couldn't cast Any to Int")
451 -     let pricesList = if ($isInstanceOf(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil), "List[Any]"))
452 -         then invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
453 -         else throw("Couldn't cast Any to List[Any]")
422 +     let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil))
423 +     let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil))
424 +     let pricesList = if ((poolLPBalance == 0))
425 +         then [toString(zeroBigInt), toString(zeroBigInt), toString(zeroBigInt)]
426 +         else asAnyList(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil))
454 427      let curPrice = 0
455 -     let lpAmtAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil), "Int"))
456 -         then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
457 -         else throw("Couldn't cast Any to Int")
458 -     let lpPriceAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil), "Int"))
459 -         then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
460 -         else throw("Couldn't cast Any to Int")
461 -     let poolWeight = getIntegerValue(factoryAddress, keyFactoryPoolWeight(toString(poolAddress)))
428 +     let lpAmtAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil))
429 +     let lpPriceAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil))
430 +     let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(toString(poolAddress)))
462 431      $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
463 432      }
464 433  
465 434  
466 435  
467 436  @Callable(i)
437 + func poolEvaluatePutByAmountAssetREADONLY (lpAsset,inAmAssetAmt) = {
438 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
439 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
440 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
441 +     let amAssetIdStr = asString(cfg[idxAmtAssetId])
442 +     let amAssetId = fromBase58String(amAssetIdStr)
443 +     let prAssetIdStr = asString(cfg[idxPriceAssetId])
444 +     let prAssetId = fromBase58String(prAssetIdStr)
445 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
446 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
447 +     let poolStatus = asString(cfg[idxPoolStatus])
448 +     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
449 +     let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
450 +     let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
451 +     let amtAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accAmtAssetBalance, amtAssetDcm], nil)))
452 +     let priceAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accPriceAssetBalance, priceAssetDcm], nil)))
453 +     let curPriceX18 = if ((poolLPBalance == 0))
454 +         then zeroBigInt
455 +         else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(priceAssetAmtX18), toString(amtAssetAmtX18)], nil)))
456 +     let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
457 +     let inAmAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inAmAssetAmt, amtAssetDcm], nil)))
458 +     let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, MULT18)
459 +     let inPrAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inPrAssetAmtX18), priceAssetDcm], nil))
460 +     let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
461 +     let $t02211022463 =     match res {
462 +         case _ => 
463 +             if (if ($isInstanceOf($match0._1, "Int"))
464 +                 then if ($isInstanceOf($match0._3, "Int"))
465 +                     then if ($isInstanceOf($match0._4, "Int"))
466 +                         then if ($isInstanceOf($match0._5, "Int"))
467 +                             then $isInstanceOf($match0._6, "Int")
468 +                             else false
469 +                         else false
470 +                     else false
471 +                 else false)
472 +                 then {
473 +                     let calcLpAmt = $match0._1
474 +                     let curPriceCalc = $match0._3
475 +                     let amBalance = $match0._4
476 +                     let prBalance = $match0._5
477 +                     let lpEmission = $match0._6
478 +                     $Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
479 +                     }
480 +                 else throw("Couldn't cast types")
481 +     }
482 +     let calcLpAmt = $t02211022463._1
483 +     let curPriceCalc = $t02211022463._2
484 +     let amBalance = $t02211022463._3
485 +     let prBalance = $t02211022463._4
486 +     let lpEmission = $t02211022463._5
487 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
488 +     }
489 + 
490 + 
491 + 
492 + @Callable(i)
493 + func poolEvaluatePutByPriceAssetREADONLY (lpAsset,inPrAssetAmt) = {
494 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
495 +     let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
496 +     let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
497 +     let amAssetIdStr = asString(cfg[idxAmtAssetId])
498 +     let amAssetId = fromBase58String(amAssetIdStr)
499 +     let prAssetIdStr = asString(cfg[idxPriceAssetId])
500 +     let prAssetId = fromBase58String(prAssetIdStr)
501 +     let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
502 +     let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
503 +     let poolStatus = asString(cfg[idxPoolStatus])
504 +     let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
505 +     let amBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
506 +     let prBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
507 +     let amBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [amBalanceRaw, amtAssetDcm], nil)))
508 +     let prBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [prBalanceRaw, priceAssetDcm], nil)))
509 +     let curPriceX18 = if ((poolLPBalance == 0))
510 +         then zeroBigInt
511 +         else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(prBalanceRawX18), toString(amBalanceRawX18)], nil)))
512 +     let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
513 +     let inPrAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inPrAssetAmt, priceAssetDcm], nil)))
514 +     let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, MULT18, curPriceX18)
515 +     let inAmAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inAmAssetAmtX18), amtAssetDcm], nil))
516 +     let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
517 +     let $t02499825351 =     match res {
518 +         case _ => 
519 +             if (if ($isInstanceOf($match0._1, "Int"))
520 +                 then if ($isInstanceOf($match0._3, "Int"))
521 +                     then if ($isInstanceOf($match0._4, "Int"))
522 +                         then if ($isInstanceOf($match0._5, "Int"))
523 +                             then $isInstanceOf($match0._6, "Int")
524 +                             else false
525 +                         else false
526 +                     else false
527 +                 else false)
528 +                 then {
529 +                     let calcLpAmt = $match0._1
530 +                     let curPriceCalc = $match0._3
531 +                     let amBalance = $match0._4
532 +                     let prBalance = $match0._5
533 +                     let lpEmission = $match0._6
534 +                     $Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
535 +                     }
536 +                 else throw("Couldn't cast types")
537 +     }
538 +     let calcLpAmt = $t02499825351._1
539 +     let curPriceCalc = $t02499825351._2
540 +     let amBalance = $t02499825351._3
541 +     let prBalance = $t02499825351._4
542 +     let lpEmission = $t02499825351._5
543 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
544 +     }
545 + 
546 + 
547 + 
548 + @Callable(i)
549 + func poolEvaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
550 +     let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(paymentLpAssetId)))
551 +     let res = invoke(poolAddress, "estimateGetOperationWrapperREADONLY", ["", paymentLpAssetId, paymentLpAmt, toString(poolAddress)], nil)
552 +     let $t02604626463 =     match res {
553 +         case _ => 
554 +             if (if ($isInstanceOf($match0._1, "Int"))
555 +                 then if ($isInstanceOf($match0._2, "Int"))
556 +                     then if ($isInstanceOf($match0._5, "Int"))
557 +                         then if ($isInstanceOf($match0._6, "Int"))
558 +                             then if ($isInstanceOf($match0._7, "Int"))
559 +                                 then if ($isInstanceOf($match0._8, "String"))
560 +                                     then $isInstanceOf($match0._9, "String")
561 +                                     else false
562 +                                 else false
563 +                             else false
564 +                         else false
565 +                     else false
566 +                 else false)
567 +                 then {
568 +                     let outAmAmt = $match0._1
569 +                     let outPrAmt = $match0._2
570 +                     let amBalance = $match0._5
571 +                     let prBalance = $match0._6
572 +                     let lpEmission = $match0._7
573 +                     let curPrice = $match0._8
574 +                     let poolStatus = $match0._9
575 +                     $Tuple7(outAmAmt, outPrAmt, amBalance, prBalance, lpEmission, curPrice, poolStatus)
576 +                     }
577 +                 else throw("Couldn't cast types")
578 +     }
579 +     let outAmAmt = $t02604626463._1
580 +     let outPrAmt = $t02604626463._2
581 +     let amBalance = $t02604626463._3
582 +     let prBalance = $t02604626463._4
583 +     let lpEmission = $t02604626463._5
584 +     let curPrice = $t02604626463._6
585 +     let poolStatus = $t02604626463._7
586 +     $Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), curPrice, poolStatus], SEP))
587 +     }
588 + 
589 + 
590 + 
591 + @Callable(i)
468 592  func gwxUserInfoREADONLY (userAddress) = {
469 -     let factoryContract = readFactoryAddressOrFail()
470 -     let factoryCfg = readFactoryCfgOrFail(factoryContract)
471 -     let boostingContract = getBoostingAddressOrFail(factoryCfg)
472 -     let gwxUserInfoLIST = if ($isInstanceOf(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil), "List[Any]"))
473 -         then invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil)
474 -         else throw("Couldn't cast Any to List[Any]")
475 -     let gwxAmount = if ($isInstanceOf(gwxUserInfoLIST[0], "Int"))
476 -         then gwxUserInfoLIST[0]
477 -         else throw("Couldn't cast Any to Int")
593 +     let gwxUserInfoLIST = asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddress], nil))
594 +     let gwxAmount = asInt(gwxUserInfoLIST[0])
478 595      $Tuple2(nil, makeString(["%d", toString(gwxAmount)], SEP))
479 596      }
480 597  
481 598

Old	New		Differences
12	12		let SEP = "__"
13	13
14	14		let POOLWEIGHTMULT = MULT8
	15	+
	16	+	let zeroBigInt = toBigInt(0)
15	17
16	18		let idxPoolAddress = 1
17	19

112	114		func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
113	115
114	116
115		-	func getBoostingAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgBoostingDapp])
	117	+	func getBoostingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgBoostingDapp])
116	118
117	119
118		-	func getEmissionAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgEmissionDapp])
	120	+	func getEmissionAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgEmissionDapp])
119	121
120	122
121		-	func getStakingAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgStakingDapp])
	123	+	func getStakingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgStakingDapp])
122	124
123	125
124		-	func getGwxRewardAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~"3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n"~~)
	126	+	func getGwxRewardAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgGwxRewardDapp])
125	127
126	128
127	129		func keyBoostCfg () = "%s__config"

217	219		func keyEmissionEndBlock () = "%s%s__emission__endBlock"
218	220
219	221
220		-	func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
221		-	let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
	222	+	let factoryDapp = readFactoryAddressOrFail()
	223	+
	224	+	let factoryCfg = readFactoryCfgOrFail(factoryDapp)
	225	+
	226	+	let emissionDapp = getEmissionAddressOrFail(factoryCfg)
	227	+
	228	+	let stakingDapp = getStakingAddressOrFail(factoryCfg)
	229	+
	230	+	let gwxRewardDapp = getGwxRewardAddressOrFail(factoryCfg)
	231	+
	232	+	let boostingDapp = getBoostingAddressOrFail(factoryCfg)
	233	+
	234	+	func internalCurrentRewardRate (lpAssetId) = {
	235	+	let poolAddressStr = getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222	236		let poolWeightMult = MULT8
223		-	let poolWeight = getIntegerValue(~~factoryContract~~, keyFactoryPoolWeight(poolAddressStr))
224		-	let wxEmissionPerBlock = getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockCurrent())
225		-	let wxEmissionPerBlockMax = getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockMaxCurrent())
	237	+	let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
	238	+	let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
	239	+	let wxEmissionPerBlockMax = getIntOrFail(emissionDapp, keyEmissionRatePerBlockMaxCurrent())
226	240		let boostMaxCoeff = 3
227	241		let poolWxEmissionPerBlock = (fraction(wxEmissionPerBlock, poolWeight, poolWeightMult) / boostMaxCoeff)
228	242		let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
229	243		let maxFactor = (boostMaxCoeff * MULT8)
230		-	let totalLpStaked = getIntOrZero(~~stakingContract~~, keyStakedTotal(lpAssetId))
	244	+	let totalLpStaked = getIntOrZero(stakingDapp, keyStakedTotal(lpAssetId))
231	245		[poolWxEmissionPerBlock, maxFactor, totalLpStaked]
232	246		}
233	247

248	262
249	263		@Callable(i)
250	264		func currentRewardRateREADONLY (lpAssetId) = {
251		-	let factoryContract = readFactoryAddressOrFail()
252		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
253		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
254		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
255		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	265	+	let rewardData = internalCurrentRewardRate(lpAssetId)
256	266		let wxEmissionPerBlock = rewardData[0]
257	267		let maxFactor = rewardData[1]
258	268		let totalLpStaked = rewardData[2]

263	273
264	274		@Callable(i)
265	275		func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
266		-	let factoryContract = readFactoryAddressOrFail()
267		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
268		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
269		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
270		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	276	+	let rewardData = internalCurrentRewardRate(lpAssetId)
271	277		let wxEmissionPerBlock = rewardData[0]
272	278		let maxFactor = rewardData[1]
273	279		let totalLpStaked = rewardData[2]
274		-	let lpStakedByUser = getIntOrZero(~~stakingContract~~, keyStakedByUser(userAddress, lpAssetId))
275		-	let userClaimInfo = split(asString(invoke(~~stakingContract~~, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
	280	+	let lpStakedByUser = getIntOrZero(stakingDapp, keyStakedByUser(userAddress, lpAssetId))
	281	+	let userClaimInfo = split(asString(invoke(stakingDapp, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
276	282		let minRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[5]), "couldn't parse minRewardPart")
277	283		let boostRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[6]), "couldn't parse boostRewardPart")
278	284		let debug = userClaimInfo[7]

286	292
287	293		@Callable(i)
288	294		func claimedRewardREADONLY (userAddress) = {
289		-	let factoryContract = readFactoryAddressOrFail()
290		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
291		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
292	295		let lpList = readLpList()
293	296		let prefix = "%s%d%d%d%s"
294	297		func claimedRewardByLpAggregator (resultStr,nextLp) = {
295	298		let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(nextLp, userAddress)
296	299		let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(nextLp, userAddress)
297		-	let minRewardClaimed = valueOrElse(getInteger(~~stakingContract~~, claimedByUserMinRewardKEY), 0)
298		-	let boostRewardClaimed = valueOrElse(getInteger(~~stakingContract~~, claimedByUserBoostRewardKEY), 0)
	300	+	let minRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserMinRewardKEY), 0)
	301	+	let boostRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserBoostRewardKEY), 0)
299	302		let gFeeClaimed = 0
300	303		makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
301	304		}

304	307		let $l = lpList
305	308		let $s = size($l)
306	309		let $acc0 = "%s"
307		-	func 1 ($a,$i) = if (($i >= $s))
	310	+	func $f0_1 ($a,$i) = if (($i >= $s))
308	311		then $a
309	312		else claimedRewardByLpAggregator($a, $l[$i])
310	313
311		-	func 2 ($a,$i) = if (($i >= $s))
	314	+	func $f0_2 ($a,$i) = if (($i >= $s))
312	315		then $a
313	316		else throw("List size exceeds 10")
314	317
315		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	318	+	$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)
316	319		}
317	320		$Tuple2(nil, ((result + SEP) + userAddress))
318	321		}

321	324
322	325		@Callable(i)
323	326		func calcBoostREADONLY (deltaWxAmount,deltaLockPeriodInBlocks,deltaLpAmount,lpAssetIdOpt,userAddressOpt) = {
324		-	let factoryContract = readFactoryAddressOrFail()
325		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
326		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
327		-	let mathContract = getGwxRewardAddressOrFail(factoryCfg)
328		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
329		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
	327	+	let mathDapp = gwxRewardDapp
330	328		let EMPTYSTR = "empty"
331		-	let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(~~boostingContract~~, keyBoostCfg()), SEP)[4])
	329	+	let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingDapp, keyBoostCfg()), SEP)[4])
332	330		let lpAssetIdStr = if ((lpAssetIdOpt == ""))
333	331		then EMPTYSTR
334	332		else lpAssetIdOpt
335	333		let userAddressStr = if ((userAddressOpt == ""))
336	334		then EMPTYSTR
337	335		else userAddressOpt
338		-	let userNumStr = valueOrElse(getString(~~boostingContract~~, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
339		-	let userAmount = valueOrElse(getInteger(~~boostingContract~~, keyLockParamUserAmount(userNumStr)), 0)
340		-	let lockStart = valueOrElse(getInteger(~~boostingContract~~, keyLockParamStartBlock(userNumStr)), height)
341		-	let lockDuration = valueOrElse(getInteger(~~boostingContract~~, keyLockParamDuration(userNumStr)), 0)
	336	+	let userNumStr = valueOrElse(getString(boostingDapp, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
	337	+	let userAmount = valueOrElse(getInteger(boostingDapp, keyLockParamUserAmount(userNumStr)), 0)
	338	+	let lockStart = valueOrElse(getInteger(boostingDapp, keyLockParamStartBlock(userNumStr)), height)
	339	+	let lockDuration = valueOrElse(getInteger(boostingDapp, keyLockParamDuration(userNumStr)), 0)
342	340		let lockEnd = (lockStart + lockDuration)
343	341		let remainingDuration = max([(lockEnd - height), 0])
344	342		let userAmountNew = (userAmount + deltaWxAmount)
345	343		let lockDurationNew = min([(remainingDuration + deltaLockPeriodInBlocks), maxLockDurationInBlocks])
346		-	let userCurrgWxAmount = asInt(asAnyList(invoke(~~boostingContract~~, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
	344	+	let userCurrgWxAmount = asInt(asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
347	345		let gWxAmountStartNew = calcGwxAmountStartREADONLY(userAmountNew, lockDurationNew, maxLockDurationInBlocks)[0]
348		-	let gWxParamsResultList = asAnyList(invoke(~~mathContract~~, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
	346	+	let gWxParamsResultList = asAnyList(invoke(mathDapp, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
349	347		let gWxAmountDiff = (gWxAmountStartNew - userCurrgWxAmount)
350	348		let k = asInt(gWxParamsResultList[0])
351	349		let b = asInt(gWxParamsResultList[1])

353	351		let totalMaxBoostIntegralKEY = keyTotalMaxBoostINTEGRAL()
354	352		let totalCachedGwxKEY = keyTotalCachedGwx()
355	353		let userMaxBoostIntNew = ((gWxAmountStartNew * lockDurationNew) / 2)
356		-	let totalMaxBoostInt = getIntOrZero(~~boostingContract~~, totalMaxBoostIntegralKEY)
357		-	let totalCachedGwx = valueOrElse(getInteger(~~boostingContract~~, totalCachedGwxKEY), 0)
	354	+	let totalMaxBoostInt = getIntOrZero(boostingDapp, totalMaxBoostIntegralKEY)
	355	+	let totalCachedGwx = valueOrElse(getInteger(boostingDapp, totalCachedGwxKEY), 0)
358	356		let MULT3 = 1000
359		-	let wxEmissionPerBlockX3 = (getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockCurrent()) * MULT3)
	357	+	let wxEmissionPerBlockX3 = (getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent()) * MULT3)
360	358		let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
361	359		let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
362		-	let stakedByUser = readStaked(~~stakingContract~~, stakedByUserKEY)
363		-	let stakedTotal = readStaked(~~stakingContract~~, stakedTotalKEY)
	360	+	let stakedByUser = readStaked(stakingDapp, stakedByUserKEY)
	361	+	let stakedTotal = readStaked(stakingDapp, stakedTotalKEY)
364	362		let stakedByUserNew = (stakedByUser + deltaLpAmount)
365	363		let stakedTotalNew = (stakedTotal + deltaLpAmount)
366	364		let poolWeight = if ((lpAssetIdStr != EMPTYSTR))
367	365		then {
368		-	let poolAddressStr = valueOrErrorMessage(getString(~~factoryContract~~, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
369		-	getIntegerValue(~~factoryContract~~, keyFactoryPoolWeight(poolAddressStr))
	366	+	let poolAddressStr = valueOrErrorMessage(getString(factoryDapp, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
	367	+	getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
370	368		}
371	369		else 0
372	370		let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))

390	388		func wxEmissionStatsREADONLY () = {
391	389		let ONEMULT = toString(MULT8)
392	390		let ONE = "1"
393		-	let factoryContract = readFactoryAddressOrFail()
394		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
395		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
396		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
397		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
398		-	let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
	391	+	let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
	392	+	let emissionStartBlock = getIntOrFail(emissionDapp, keyEmissionStartBlock())
399	393		let passedBlocks = if ((emissionStartBlock > height))
400	394		then 0
401	395		else (height - emissionStartBlock)

405	399		then teamEmMax
406	400		else fraction(teamEmMax, passedBlocks, teamEmDuration)
407	401		let totalWxReleased = ((wxEmissionPerBlock * passedBlocks) + teamEm)
408		-	let totalWxLocked = getIntOrZero(~~boostingContract~~, keyBoostingLockParamTotalAmount())
409		-	let locksDurationSumInBlocks = getIntOrZero(~~boostingContract~~, keyBoostingStatsLocksDurationSumInBlocks())
410		-	let locksCount = getIntOrZero(~~boostingContract~~, keyBoostingStatsLocksCount())
	402	+	let totalWxLocked = getIntOrZero(boostingDapp, keyBoostingLockParamTotalAmount())
	403	+	let locksDurationSumInBlocks = getIntOrZero(boostingDapp, keyBoostingStatsLocksDurationSumInBlocks())
	404	+	let locksCount = getIntOrZero(boostingDapp, keyBoostingStatsLocksCount())
411	405		$Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
412	406		}
413	407
414	408
415	409
416	410		@Callable(i)
417		-	func lpStatsREADONLY (lpAsset) = {
418		-	let factoryAddress = readFactoryAddressOrFail()
419		-	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
420		-	let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
421		-	then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
422		-	else throw("Couldn't cast Any to List[Any]")
423		-	let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
424		-	then cfg[idxPoolLPAssetId]
425		-	else throw("Couldn't cast Any to String"))
426		-	let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
427		-	then cfg[idxAmtAssetId]
428		-	else throw("Couldn't cast Any to String")
429		-	let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
430		-	then cfg[idxPriceAssetId]
431		-	else throw("Couldn't cast Any to String")
432		-	let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
433		-	then cfg[idxIAmtAssetId]
434		-	else throw("Couldn't cast Any to String")
435		-	let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
436		-	then cfg[idxIPriceAssetId]
437		-	else throw("Couldn't cast Any to String")
438		-	let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
439		-	then cfg[idxAmtAssetDcm]
440		-	else throw("Couldn't cast Any to String"))
441		-	let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
442		-	then cfg[idxPriceAssetDcm]
443		-	else throw("Couldn't cast Any to String"))
	411	+	func poolStatsREADONLY (lpAsset) = {
	412	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	413	+	let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
	414	+	let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
	415	+	let amtAssetId = asString(cfg[idxAmtAssetId])
	416	+	let priceAssetId = asString(cfg[idxPriceAssetId])
	417	+	let iAmtAssetId = asString(cfg[idxIAmtAssetId])
	418	+	let iPriceAssetId = asString(cfg[idxIPriceAssetId])
	419	+	let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
	420	+	let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
444	421		let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
445		-	let accAmtAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil), "Int"))
446		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
447		-	else throw("Couldn't cast Any to Int")
448		-	let accPriceAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil), "Int"))
449		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
450		-	else throw("Couldn't cast Any to Int")
451		-	let pricesList = if ($isInstanceOf(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil), "List[Any]"))
452		-	then invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
453		-	else throw("Couldn't cast Any to List[Any]")
	422	+	let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil))
	423	+	let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil))
	424	+	let pricesList = if ((poolLPBalance == 0))
	425	+	then [toString(zeroBigInt), toString(zeroBigInt), toString(zeroBigInt)]
	426	+	else asAnyList(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil))
454	427		let curPrice = 0
455		-	let lpAmtAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil), "Int"))
456		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
457		-	else throw("Couldn't cast Any to Int")
458		-	let lpPriceAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil), "Int"))
459		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
460		-	else throw("Couldn't cast Any to Int")
461		-	let poolWeight = getIntegerValue(factoryAddress, keyFactoryPoolWeight(toString(poolAddress)))
	428	+	let lpAmtAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil))
	429	+	let lpPriceAssetShare = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil))
	430	+	let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(toString(poolAddress)))
462	431		$Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(accAmtAssetBalance), toString(accPriceAssetBalance), toString(poolLPBalance), toString(curPrice), toString(lpAmtAssetShare), toString(lpPriceAssetShare), toString(poolWeight)], SEP))
463	432		}
464	433
465	434
466	435
467	436		@Callable(i)
	437	+	func poolEvaluatePutByAmountAssetREADONLY (lpAsset,inAmAssetAmt) = {
	438	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	439	+	let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
	440	+	let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
	441	+	let amAssetIdStr = asString(cfg[idxAmtAssetId])
	442	+	let amAssetId = fromBase58String(amAssetIdStr)
	443	+	let prAssetIdStr = asString(cfg[idxPriceAssetId])
	444	+	let prAssetId = fromBase58String(prAssetIdStr)
	445	+	let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
	446	+	let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
	447	+	let poolStatus = asString(cfg[idxPoolStatus])
	448	+	let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
	449	+	let accAmtAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
	450	+	let accPriceAssetBalance = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
	451	+	let amtAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accAmtAssetBalance, amtAssetDcm], nil)))
	452	+	let priceAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [accPriceAssetBalance, priceAssetDcm], nil)))
	453	+	let curPriceX18 = if ((poolLPBalance == 0))
	454	+	then zeroBigInt
	455	+	else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(priceAssetAmtX18), toString(amtAssetAmtX18)], nil)))
	456	+	let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
	457	+	let inAmAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inAmAssetAmt, amtAssetDcm], nil)))
	458	+	let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, MULT18)
	459	+	let inPrAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inPrAssetAmtX18), priceAssetDcm], nil))
	460	+	let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
	461	+	let $t02211022463 = match res {
	462	+	case _ =>
	463	+	if (if ($isInstanceOf($match0._1, "Int"))
	464	+	then if ($isInstanceOf($match0._3, "Int"))
	465	+	then if ($isInstanceOf($match0._4, "Int"))
	466	+	then if ($isInstanceOf($match0._5, "Int"))
	467	+	then $isInstanceOf($match0._6, "Int")
	468	+	else false
	469	+	else false
	470	+	else false
	471	+	else false)
	472	+	then {
	473	+	let calcLpAmt = $match0._1
	474	+	let curPriceCalc = $match0._3
	475	+	let amBalance = $match0._4
	476	+	let prBalance = $match0._5
	477	+	let lpEmission = $match0._6
	478	+	$Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
	479	+	}
	480	+	else throw("Couldn't cast types")
	481	+	}
	482	+	let calcLpAmt = $t02211022463._1
	483	+	let curPriceCalc = $t02211022463._2
	484	+	let amBalance = $t02211022463._3
	485	+	let prBalance = $t02211022463._4
	486	+	let lpEmission = $t02211022463._5
	487	+	$Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
	488	+	}
	489	+
	490	+
	491	+
	492	+	@Callable(i)
	493	+	func poolEvaluatePutByPriceAssetREADONLY (lpAsset,inPrAssetAmt) = {
	494	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	495	+	let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
	496	+	let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))
	497	+	let amAssetIdStr = asString(cfg[idxAmtAssetId])
	498	+	let amAssetId = fromBase58String(amAssetIdStr)
	499	+	let prAssetIdStr = asString(cfg[idxPriceAssetId])
	500	+	let prAssetId = fromBase58String(prAssetIdStr)
	501	+	let amtAssetDcm = asInt(cfg[idxAmtAssetDcm])
	502	+	let priceAssetDcm = asInt(cfg[idxPriceAssetDcm])
	503	+	let poolStatus = asString(cfg[idxPoolStatus])
	504	+	let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
	505	+	let amBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil))
	506	+	let prBalanceRaw = asInt(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil))
	507	+	let amBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [amBalanceRaw, amtAssetDcm], nil)))
	508	+	let prBalanceRawX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [prBalanceRaw, priceAssetDcm], nil)))
	509	+	let curPriceX18 = if ((poolLPBalance == 0))
	510	+	then zeroBigInt
	511	+	else parseBigIntValue(asString(invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(prBalanceRawX18), toString(amBalanceRawX18)], nil)))
	512	+	let curPrice = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil))
	513	+	let inPrAssetAmtX18 = parseBigIntValue(asString(invoke(poolAddress, "toX18WrapperREADONLY", [inPrAssetAmt, priceAssetDcm], nil)))
	514	+	let inAmAssetAmtX18 = fraction(inPrAssetAmtX18, MULT18, curPriceX18)
	515	+	let inAmAssetAmt = asInt(invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inAmAssetAmtX18), amtAssetDcm], nil))
	516	+	let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
	517	+	let $t02499825351 = match res {
	518	+	case _ =>
	519	+	if (if ($isInstanceOf($match0._1, "Int"))
	520	+	then if ($isInstanceOf($match0._3, "Int"))
	521	+	then if ($isInstanceOf($match0._4, "Int"))
	522	+	then if ($isInstanceOf($match0._5, "Int"))
	523	+	then $isInstanceOf($match0._6, "Int")
	524	+	else false
	525	+	else false
	526	+	else false
	527	+	else false)
	528	+	then {
	529	+	let calcLpAmt = $match0._1
	530	+	let curPriceCalc = $match0._3
	531	+	let amBalance = $match0._4
	532	+	let prBalance = $match0._5
	533	+	let lpEmission = $match0._6
	534	+	$Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
	535	+	}
	536	+	else throw("Couldn't cast types")
	537	+	}
	538	+	let calcLpAmt = $t02499825351._1
	539	+	let curPriceCalc = $t02499825351._2
	540	+	let amBalance = $t02499825351._3
	541	+	let prBalance = $t02499825351._4
	542	+	let lpEmission = $t02499825351._5
	543	+	$Tuple2(nil, makeString(["%d%d%d%d%d%d%d%d", toString(calcLpAmt), toString(curPrice), toString(amBalance), toString(prBalance), toString(lpEmission), poolStatus, toString(inAmAssetAmt), toString(inPrAssetAmt)], SEP))
	544	+	}
	545	+
	546	+
	547	+
	548	+	@Callable(i)
	549	+	func poolEvaluateGetREADONLY (paymentLpAssetId,paymentLpAmt) = {
	550	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(paymentLpAssetId)))
	551	+	let res = invoke(poolAddress, "estimateGetOperationWrapperREADONLY", ["", paymentLpAssetId, paymentLpAmt, toString(poolAddress)], nil)
	552	+	let $t02604626463 = match res {
	553	+	case _ =>
	554	+	if (if ($isInstanceOf($match0._1, "Int"))
	555	+	then if ($isInstanceOf($match0._2, "Int"))
	556	+	then if ($isInstanceOf($match0._5, "Int"))
	557	+	then if ($isInstanceOf($match0._6, "Int"))
	558	+	then if ($isInstanceOf($match0._7, "Int"))
	559	+	then if ($isInstanceOf($match0._8, "String"))
	560	+	then $isInstanceOf($match0._9, "String")
	561	+	else false
	562	+	else false
	563	+	else false
	564	+	else false
	565	+	else false
	566	+	else false)
	567	+	then {
	568	+	let outAmAmt = $match0._1
	569	+	let outPrAmt = $match0._2
	570	+	let amBalance = $match0._5
	571	+	let prBalance = $match0._6
	572	+	let lpEmission = $match0._7
	573	+	let curPrice = $match0._8
	574	+	let poolStatus = $match0._9
	575	+	$Tuple7(outAmAmt, outPrAmt, amBalance, prBalance, lpEmission, curPrice, poolStatus)
	576	+	}
	577	+	else throw("Couldn't cast types")
	578	+	}
	579	+	let outAmAmt = $t02604626463._1
	580	+	let outPrAmt = $t02604626463._2
	581	+	let amBalance = $t02604626463._3
	582	+	let prBalance = $t02604626463._4
	583	+	let lpEmission = $t02604626463._5
	584	+	let curPrice = $t02604626463._6
	585	+	let poolStatus = $t02604626463._7
	586	+	$Tuple2(nil, makeString(["%d%d%d%d%d%d%d", toString(outAmAmt), toString(outPrAmt), toString(amBalance), toString(prBalance), toString(lpEmission), curPrice, poolStatus], SEP))
	587	+	}
	588	+
	589	+
	590	+
	591	+	@Callable(i)
468	592		func gwxUserInfoREADONLY (userAddress) = {
469		-	let factoryContract = readFactoryAddressOrFail()
470		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
471		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
472		-	let gwxUserInfoLIST = if ($isInstanceOf(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil), "List[Any]"))
473		-	then invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil)
474		-	else throw("Couldn't cast Any to List[Any]")
475		-	let gwxAmount = if ($isInstanceOf(gwxUserInfoLIST[0], "Int"))
476		-	then gwxUserInfoLIST[0]
477		-	else throw("Couldn't cast Any to Int")
	593	+	let gwxUserInfoLIST = asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddress], nil))
	594	+	let gwxAmount = asInt(gwxUserInfoLIST[0])
478	595		$Tuple2(nil, makeString(["%d", toString(gwxAmount)], SEP))
479	596		}
480	597

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let SCALE8 = 8
5	5
6	6		let MULT8 = 100000000
7	7
8	8		let SCALE18 = 18
9	9
10	10		let MULT18 = toBigInt(1000000000000000000)
11	11
12	12		let SEP = "__"
13	13
14	14		let POOLWEIGHTMULT = MULT8
	15	+
	16	+	let zeroBigInt = toBigInt(0)
15	17
16	18		let idxPoolAddress = 1
17	19
18	20		let idxPoolStatus = 2
19	21
20	22		let idxPoolLPAssetId = 3
21	23
22	24		let idxAmtAssetId = 4
23	25
24	26		let idxPriceAssetId = 5
25	27
26	28		let idxAmtAssetDcm = 6
27	29
28	30		let idxPriceAssetDcm = 7
29	31
30	32		let idxIAmtAssetId = 8
31	33
32	34		let idxIPriceAssetId = 9
33	35
34	36		let idxLPAssetDcm = 10
35	37
36	38		func getStringOrFail (key) = valueOrErrorMessage(getString(key), (("mandatory this." + key) + " is not defined"))
37	39
38	40
39	41		func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
40	42
41	43
42	44		func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
43	45
44	46
45	47		func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
46	48
47	49
48	50		func asAnyList (val) = match val {
49	51		case valAnyLyst: List[Any] =>
50	52		valAnyLyst
51	53		case _ =>
52	54		throw("fail to cast into List[Any]")
53	55		}
54	56
55	57
56	58		func asInt (val) = match val {
57	59		case valInt: Int =>
58	60		valInt
59	61		case _ =>
60	62		throw("fail to cast into Int")
61	63		}
62	64
63	65
64	66		func asString (val) = match val {
65	67		case valStr: String =>
66	68		valStr
67	69		case _ =>
68	70		throw("fail to cast into String")
69	71		}
70	72
71	73
72	74		func keyFactoryAddress () = "%s%s__config__factoryAddress"
73	75
74	76
75	77		let IdxFactoryCfgStakingDapp = 1
76	78
77	79		let IdxFactoryCfgBoostingDapp = 2
78	80
79	81		let IdxFactoryCfgIdoDapp = 3
80	82
81	83		let IdxFactoryCfgTeamDapp = 4
82	84
83	85		let IdxFactoryCfgEmissionDapp = 5
84	86
85	87		let IdxFactoryCfgRestDapp = 6
86	88
87	89		let IdxFactoryCfgSlippageDapp = 7
88	90
89	91		let IdxFactoryCfgGwxRewardDapp = 8
90	92
91	93		func keyFactoryCfg () = "%s__factoryConfig"
92	94
93	95
94	96		func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
95	97
96	98
97	99		func keyFactoryLpList () = "%s__lpTokensList"
98	100
99	101
100	102		func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
101	103
102	104
103	105		func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
104	106
105	107
106	108		func readFactoryAddressOrFail () = addressFromStringValue(getStringOrFail(keyFactoryAddress()))
107	109
108	110
109	111		func readLpList () = split(valueOrElse(getString(readFactoryAddressOrFail(), keyFactoryLpList()), ""), SEP)
110	112
111	113
112	114		func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
113	115
114	116
115		-	func getBoostingAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgBoostingDapp])
	117	+	func getBoostingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgBoostingDapp])
116	118
117	119
118		-	func getEmissionAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgEmissionDapp])
	120	+	func getEmissionAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgEmissionDapp])
119	121
120	122
121		-	func getStakingAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~factoryCfg~~[IdxFactoryCfgStakingDapp])
	123	+	func getStakingAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgStakingDapp])
122	124
123	125
124		-	func getGwxRewardAddressOrFail (~~factoryCfg~~) = addressFromStringValue(~~"3PH83bJCZraJoEzFefz4p8UXZD9YazNnj1n"~~)
	126	+	func getGwxRewardAddressOrFail (fCfg) = addressFromStringValue(fCfg[IdxFactoryCfgGwxRewardDapp])
125	127
126	128
127	129		func keyBoostCfg () = "%s__config"
128	130
129	131
130	132		func keyBoostingLockParamTotalAmount () = "%s%s__stats__activeTotalLocked"
131	133
132	134
133	135		func keyBoostingStatsLocksDurationSumInBlocks () = "%s%s__stats__locksDurationSumInBlocks"
134	136
135	137
136	138		func keyBoostingStatsLocksCount () = "%s%s__stats__locksCount"
137	139
138	140
139	141		func keyBoostingStatsUsersCount () = "%s%s__stats__activeUsersCount"
140	142
141	143
142	144		func keyUser2NumMapping (userAddress) = makeString(["%s%s%s__mapping__user2num", userAddress], SEP)
143	145
144	146
145	147		func keyNum2UserMapping (num) = makeString(["%s%s%s__mapping__num2user", num], SEP)
146	148
147	149
148	150		func keyLockParamUserAmount (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "amount"], SEP)
149	151
150	152
151	153		func keyLockParamStartBlock (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "start"], SEP)
152	154
153	155
154	156		func keyLockParamDuration (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "duration"], SEP)
155	157
156	158
157	159		func keyLockParamK (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "k"], SEP)
158	160
159	161
160	162		func keyLockParamB (userNum) = makeString(["%s%d%s__paramByUserNum", userNum, "b"], SEP)
161	163
162	164
163	165		func keyLockParamByPeriodK (userNum,period) = makeString(["%s%d%s%d__paramByPeriod", userNum, "k", period], SEP)
164	166
165	167
166	168		func keyLockParamByPeriodB (userNum,period) = makeString(["%s%d%s%d__paramByPeriod", userNum, "b", period], SEP)
167	169
168	170
169	171		func keyUserBoostEmissionLastINTEGRAL (userNum) = makeString(["%s%d__userBoostEmissionLastInt", userNum], SEP)
170	172
171	173
172	174		func keyUserMaxBoostINTEGRAL (userNum) = makeString(["%s%d__maxBoostInt", userNum], SEP)
173	175
174	176
175	177		func keyTotalMaxBoostINTEGRAL () = "%s%s__maxBoostInt__total"
176	178
177	179
178	180		func keyUserBoostAvalaibleToClaimTotal (userNum) = makeString(["%s%d__userBoostAvaliableToClaimTotal", userNum], SEP)
179	181
180	182
181	183		func keyUserBoostClaimed (userNum) = makeString(["%s%d__userBoostClaimed", userNum], SEP)
182	184
183	185
184	186		func keyTotalCachedGwx () = "%s%s__gwxCached__total"
185	187
186	188
187	189		func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
188	190
189	191
190	192		func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
191	193
192	194
193	195		func keyClaimedByUser (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimed", userAddressStr, lpAssetIdStr], SEP)
194	196
195	197
196	198		func keyClaimedByUserMinReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedMinReward", userAddressStr, lpAssetIdStr], SEP)
197	199
198	200
199	201		func keyClaimedByUserBoostReward (lpAssetIdStr,userAddressStr) = makeString(["%s%s%s__claimedBoostReward", userAddressStr, lpAssetIdStr], SEP)
200	202
201	203
202	204		func readStaked (stakingDapp,key) = valueOrElse(getInteger(stakingDapp, key), 0)
203	205
204	206
205	207		func keyEmissionRatePerBlockCurrent () = "%s%s__ratePerBlock__current"
206	208
207	209
208	210		func keyEmissionRatePerBlockMaxCurrent () = "%s%s__ratePerBlockMax__current"
209	211
210	212
211	213		func keyEmissionStartBlock () = "%s%s__emission__startBlock"
212	214
213	215
214	216		func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
215	217
216	218
217	219		func keyEmissionEndBlock () = "%s%s__emission__endBlock"
218	220
219	221
220		-	func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
221		-	let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
	222	+	let factoryDapp = readFactoryAddressOrFail()
	223	+
	224	+	let factoryCfg = readFactoryCfgOrFail(factoryDapp)
	225	+
	226	+	let emissionDapp = getEmissionAddressOrFail(factoryCfg)
	227	+
	228	+	let stakingDapp = getStakingAddressOrFail(factoryCfg)
	229	+
	230	+	let gwxRewardDapp = getGwxRewardAddressOrFail(factoryCfg)
	231	+
	232	+	let boostingDapp = getBoostingAddressOrFail(factoryCfg)
	233	+
	234	+	func internalCurrentRewardRate (lpAssetId) = {
	235	+	let poolAddressStr = getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
222	236		let poolWeightMult = MULT8
223		-	let poolWeight = getIntegerValue(~~factoryContract~~, keyFactoryPoolWeight(poolAddressStr))
224		-	let wxEmissionPerBlock = getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockCurrent())
225		-	let wxEmissionPerBlockMax = getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockMaxCurrent())
	237	+	let poolWeight = getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
	238	+	let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
	239	+	let wxEmissionPerBlockMax = getIntOrFail(emissionDapp, keyEmissionRatePerBlockMaxCurrent())
226	240		let boostMaxCoeff = 3
227	241		let poolWxEmissionPerBlock = (fraction(wxEmissionPerBlock, poolWeight, poolWeightMult) / boostMaxCoeff)
228	242		let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
229	243		let maxFactor = (boostMaxCoeff * MULT8)
230		-	let totalLpStaked = getIntOrZero(~~stakingContract~~, keyStakedTotal(lpAssetId))
	244	+	let totalLpStaked = getIntOrZero(stakingDapp, keyStakedTotal(lpAssetId))
231	245		[poolWxEmissionPerBlock, maxFactor, totalLpStaked]
232	246		}
233	247
234	248
235	249		func calcGwxAmountStartREADONLY (lockAmount,lockDuration,maxLockDuration) = {
236	250		let coeffX8 = fraction(lockDuration, MULT8, maxLockDuration)
237	251		let gWxAmountStart = fraction(lockAmount, coeffX8, MULT8)
238	252		[gWxAmountStart]
239	253		}
240	254
241	255
242	256		@Callable(i)
243	257		func constructor (factoryAddress) = if ((i.caller != this))
244	258		then throw("not authorized")
245	259		else [StringEntry(keyFactoryAddress(), factoryAddress)]
246	260
247	261
248	262
249	263		@Callable(i)
250	264		func currentRewardRateREADONLY (lpAssetId) = {
251		-	let factoryContract = readFactoryAddressOrFail()
252		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
253		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
254		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
255		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	265	+	let rewardData = internalCurrentRewardRate(lpAssetId)
256	266		let wxEmissionPerBlock = rewardData[0]
257	267		let maxFactor = rewardData[1]
258	268		let totalLpStaked = rewardData[2]
259	269		$Tuple2(nil, makeString(["%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked)], SEP))
260	270		}
261	271
262	272
263	273
264	274		@Callable(i)
265	275		func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
266		-	let factoryContract = readFactoryAddressOrFail()
267		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
268		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
269		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
270		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	276	+	let rewardData = internalCurrentRewardRate(lpAssetId)
271	277		let wxEmissionPerBlock = rewardData[0]
272	278		let maxFactor = rewardData[1]
273	279		let totalLpStaked = rewardData[2]
274		-	let lpStakedByUser = getIntOrZero(~~stakingContract~~, keyStakedByUser(userAddress, lpAssetId))
275		-	let userClaimInfo = split(asString(invoke(~~stakingContract~~, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
	280	+	let lpStakedByUser = getIntOrZero(stakingDapp, keyStakedByUser(userAddress, lpAssetId))
	281	+	let userClaimInfo = split(asString(invoke(stakingDapp, "claimWxREADONLY", [lpAssetId, userAddress], nil)), SEP)
276	282		let minRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[5]), "couldn't parse minRewardPart")
277	283		let boostRewardPart = valueOrErrorMessage(parseInt(userClaimInfo[6]), "couldn't parse boostRewardPart")
278	284		let debug = userClaimInfo[7]
279	285		let boostingPower = if ((boostRewardPart == 0))
280	286		then (1 * MULT8)
281	287		else fraction((minRewardPart + boostRewardPart), MULT8, minRewardPart)
282	288		$Tuple2(nil, makeString(["%d%d%d%d%d%s", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower), debug], SEP))
283	289		}
284	290
285	291
286	292
287	293		@Callable(i)
288	294		func claimedRewardREADONLY (userAddress) = {
289		-	let factoryContract = readFactoryAddressOrFail()
290		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
291		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
292	295		let lpList = readLpList()
293	296		let prefix = "%s%d%d%d%s"
294	297		func claimedRewardByLpAggregator (resultStr,nextLp) = {
295	298		let claimedByUserMinRewardKEY = keyClaimedByUserMinReward(nextLp, userAddress)
296	299		let claimedByUserBoostRewardKEY = keyClaimedByUserBoostReward(nextLp, userAddress)
297		-	let minRewardClaimed = valueOrElse(getInteger(~~stakingContract~~, claimedByUserMinRewardKEY), 0)
298		-	let boostRewardClaimed = valueOrElse(getInteger(~~stakingContract~~, claimedByUserBoostRewardKEY), 0)
	300	+	let minRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserMinRewardKEY), 0)
	301	+	let boostRewardClaimed = valueOrElse(getInteger(stakingDapp, claimedByUserBoostRewardKEY), 0)
299	302		let gFeeClaimed = 0
300	303		makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
301	304		}
302	305
303	306		let result = {
304	307		let $l = lpList
305	308		let $s = size($l)
306	309		let $acc0 = "%s"
307		-	func 1 ($a,$i) = if (($i >= $s))
	310	+	func $f0_1 ($a,$i) = if (($i >= $s))
308	311		then $a
309	312		else claimedRewardByLpAggregator($a, $l[$i])
310	313
311		-	func 2 ($a,$i) = if (($i >= $s))
	314	+	func $f0_2 ($a,$i) = if (($i >= $s))
312	315		then $a
313	316		else throw("List size exceeds 10")
314	317
315		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	318	+	$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)
316	319		}
317	320		$Tuple2(nil, ((result + SEP) + userAddress))
318	321		}
319	322
320	323
321	324
322	325		@Callable(i)
323	326		func calcBoostREADONLY (deltaWxAmount,deltaLockPeriodInBlocks,deltaLpAmount,lpAssetIdOpt,userAddressOpt) = {
324		-	let factoryContract = readFactoryAddressOrFail()
325		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
326		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
327		-	let mathContract = getGwxRewardAddressOrFail(factoryCfg)
328		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
329		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
	327	+	let mathDapp = gwxRewardDapp
330	328		let EMPTYSTR = "empty"
331		-	let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(~~boostingContract~~, keyBoostCfg()), SEP)[4])
	329	+	let maxLockDurationInBlocks = parseIntValue(split(getStringByAddressOrFail(boostingDapp, keyBoostCfg()), SEP)[4])
332	330		let lpAssetIdStr = if ((lpAssetIdOpt == ""))
333	331		then EMPTYSTR
334	332		else lpAssetIdOpt
335	333		let userAddressStr = if ((userAddressOpt == ""))
336	334		then EMPTYSTR
337	335		else userAddressOpt
338		-	let userNumStr = valueOrElse(getString(~~boostingContract~~, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
339		-	let userAmount = valueOrElse(getInteger(~~boostingContract~~, keyLockParamUserAmount(userNumStr)), 0)
340		-	let lockStart = valueOrElse(getInteger(~~boostingContract~~, keyLockParamStartBlock(userNumStr)), height)
341		-	let lockDuration = valueOrElse(getInteger(~~boostingContract~~, keyLockParamDuration(userNumStr)), 0)
	336	+	let userNumStr = valueOrElse(getString(boostingDapp, keyUser2NumMapping(userAddressOpt)), EMPTYSTR)
	337	+	let userAmount = valueOrElse(getInteger(boostingDapp, keyLockParamUserAmount(userNumStr)), 0)
	338	+	let lockStart = valueOrElse(getInteger(boostingDapp, keyLockParamStartBlock(userNumStr)), height)
	339	+	let lockDuration = valueOrElse(getInteger(boostingDapp, keyLockParamDuration(userNumStr)), 0)
342	340		let lockEnd = (lockStart + lockDuration)
343	341		let remainingDuration = max([(lockEnd - height), 0])
344	342		let userAmountNew = (userAmount + deltaWxAmount)
345	343		let lockDurationNew = min([(remainingDuration + deltaLockPeriodInBlocks), maxLockDurationInBlocks])
346		-	let userCurrgWxAmount = asInt(asAnyList(invoke(~~boostingContract~~, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
	344	+	let userCurrgWxAmount = asInt(asAnyList(invoke(boostingDapp, "gwxUserInfoREADONLY", [userAddressStr], nil))[0])
347	345		let gWxAmountStartNew = calcGwxAmountStartREADONLY(userAmountNew, lockDurationNew, maxLockDurationInBlocks)[0]
348		-	let gWxParamsResultList = asAnyList(invoke(~~mathContract~~, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
	346	+	let gWxParamsResultList = asAnyList(invoke(mathDapp, "calcGwxParamsREADONLY", [gWxAmountStartNew, height, lockDurationNew], nil))
349	347		let gWxAmountDiff = (gWxAmountStartNew - userCurrgWxAmount)
350	348		let k = asInt(gWxParamsResultList[0])
351	349		let b = asInt(gWxParamsResultList[1])
352	350		let period = toString(asInt(gWxParamsResultList[2]))
353	351		let totalMaxBoostIntegralKEY = keyTotalMaxBoostINTEGRAL()
354	352		let totalCachedGwxKEY = keyTotalCachedGwx()
355	353		let userMaxBoostIntNew = ((gWxAmountStartNew * lockDurationNew) / 2)
356		-	let totalMaxBoostInt = getIntOrZero(~~boostingContract~~, totalMaxBoostIntegralKEY)
357		-	let totalCachedGwx = valueOrElse(getInteger(~~boostingContract~~, totalCachedGwxKEY), 0)
	354	+	let totalMaxBoostInt = getIntOrZero(boostingDapp, totalMaxBoostIntegralKEY)
	355	+	let totalCachedGwx = valueOrElse(getInteger(boostingDapp, totalCachedGwxKEY), 0)
358	356		let MULT3 = 1000
359		-	let wxEmissionPerBlockX3 = (getIntOrFail(~~emissionContract~~, keyEmissionRatePerBlockCurrent()) * MULT3)
	357	+	let wxEmissionPerBlockX3 = (getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent()) * MULT3)
360	358		let stakedByUserKEY = keyStakedByUser(userAddressStr, lpAssetIdStr)
361	359		let stakedTotalKEY = keyStakedTotal(lpAssetIdStr)
362		-	let stakedByUser = readStaked(~~stakingContract~~, stakedByUserKEY)
363		-	let stakedTotal = readStaked(~~stakingContract~~, stakedTotalKEY)
	360	+	let stakedByUser = readStaked(stakingDapp, stakedByUserKEY)
	361	+	let stakedTotal = readStaked(stakingDapp, stakedTotalKEY)
364	362		let stakedByUserNew = (stakedByUser + deltaLpAmount)
365	363		let stakedTotalNew = (stakedTotal + deltaLpAmount)
366	364		let poolWeight = if ((lpAssetIdStr != EMPTYSTR))
367	365		then {
368		-	let poolAddressStr = valueOrErrorMessage(getString(~~factoryContract~~, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
369		-	getIntegerValue(~~factoryContract~~, keyFactoryPoolWeight(poolAddressStr))
	366	+	let poolAddressStr = valueOrErrorMessage(getString(factoryDapp, keyFactoryLp2AssetsMapping(lpAssetIdStr)), ("unsupported lp asset " + lpAssetIdStr))
	367	+	getIntegerValue(factoryDapp, keyFactoryPoolWeight(poolAddressStr))
370	368		}
371	369		else 0
372	370		let poolWxEmissionPerBlockX3 = fraction(wxEmissionPerBlockX3, poolWeight, (POOLWEIGHTMULT * 3))
373	371		let wxPerLpX3 = if ((stakedTotalNew != 0))
374	372		then fraction(poolWxEmissionPerBlockX3, MULT8, stakedTotalNew)
375	373		else 0
376	374		let userWxPerBlockX3 = fraction(wxPerLpX3, stakedByUserNew, MULT8)
377	375		let boostEmissionPerBlockX3 = (poolWxEmissionPerBlockX3 * 2)
378	376		let tmpUserBoostPerBlockX3 = fraction(gWxAmountStartNew, boostEmissionPerBlockX3, (totalCachedGwx + gWxAmountDiff))
379	377		let userBoostPerBlockX3 = min([tmpUserBoostPerBlockX3, (userWxPerBlockX3 * 2)])
380	378		let boostCoeff = if ((userWxPerBlockX3 == 0))
381	379		then (1 * MULT8)
382	380		else fraction((userBoostPerBlockX3 + userWxPerBlockX3), MULT8, userWxPerBlockX3)
383	381		let debug = makeString([("lpAssetIdStr=" + lpAssetIdStr), ("userAddressStr=" + userAddressStr), ("userNumStr=" + userNumStr), ("userAmount=" + toString(userAmount)), ("userAmountNew=" + toString(userAmountNew)), ("lockDurationNew=" + toString(lockDurationNew)), ("gWxAmountStart=" + toString(gWxAmountStartNew)), ("tmpUserBoostPerBlockX3=" + toString(tmpUserBoostPerBlockX3)), ("stakedByUserNew=" + toString(stakedByUserNew)), ("stakedTotalNew=" + toString(stakedTotalNew)), ("poolWeight=" + toString(poolWeight)), ("wxPerLpX3=" + toString(wxPerLpX3)), ("poolWxEmissionPerBlockX3=" + toString(poolWxEmissionPerBlockX3)), ("userWxPerBlockX3=" + toString(userWxPerBlockX3)), ("gWxAmountDiff=" + toString(gWxAmountDiff)), ("totalCachedGwx=" + toString(totalCachedGwx)), ("userCurrgWxAmount=" + toString(userCurrgWxAmount))], "::")
384	382		$Tuple2(nil, makeString(["%d%d%s", toString(gWxAmountStartNew), toString(boostCoeff), debug], SEP))
385	383		}
386	384
387	385
388	386
389	387		@Callable(i)
390	388		func wxEmissionStatsREADONLY () = {
391	389		let ONEMULT = toString(MULT8)
392	390		let ONE = "1"
393		-	let factoryContract = readFactoryAddressOrFail()
394		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
395		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
396		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
397		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
398		-	let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
	391	+	let wxEmissionPerBlock = getIntOrFail(emissionDapp, keyEmissionRatePerBlockCurrent())
	392	+	let emissionStartBlock = getIntOrFail(emissionDapp, keyEmissionStartBlock())
399	393		let passedBlocks = if ((emissionStartBlock > height))
400	394		then 0
401	395		else (height - emissionStartBlock)
402	396		let teamEmDuration = (1440 * 365)
403	397		let teamEmMax = (201000000 * MULT8)
404	398		let teamEm = if ((passedBlocks > teamEmDuration))
405	399		then teamEmMax
406	400		else fraction(teamEmMax, passedBlocks, teamEmDuration)
407	401		let totalWxReleased = ((wxEmissionPerBlock * passedBlocks) + teamEm)
408		-	let totalWxLocked = getIntOrZero(~~boostingContract~~, keyBoostingLockParamTotalAmount())
409		-	let locksDurationSumInBlocks = getIntOrZero(~~boostingContract~~, keyBoostingStatsLocksDurationSumInBlocks())
410		-	let locksCount = getIntOrZero(~~boostingContract~~, keyBoostingStatsLocksCount())
	402	+	let totalWxLocked = getIntOrZero(boostingDapp, keyBoostingLockParamTotalAmount())
	403	+	let locksDurationSumInBlocks = getIntOrZero(boostingDapp, keyBoostingStatsLocksDurationSumInBlocks())
	404	+	let locksCount = getIntOrZero(boostingDapp, keyBoostingStatsLocksCount())
411	405		$Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
412	406		}
413	407
414	408
415	409
416	410		@Callable(i)
417		-	func lpStatsREADONLY (lpAsset) = {
418		-	let factoryAddress = readFactoryAddressOrFail()
419		-	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
420		-	let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
421		-	then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
422		-	else throw("Couldn't cast Any to List[Any]")
423		-	let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
424		-	then cfg[idxPoolLPAssetId]
425		-	else throw("Couldn't cast Any to String"))
426		-	let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
427		-	then cfg[idxAmtAssetId]
428		-	else throw("Couldn't cast Any to String")
429		-	let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
430		-	then cfg[idxPriceAssetId]
431		-	else throw("Couldn't cast Any to String")
432		-	let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
433		-	then cfg[idxIAmtAssetId]
434		-	else throw("Couldn't cast Any to String")
435		-	let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
436		-	then cfg[idxIPriceAssetId]
437		-	else throw("Couldn't cast Any to String")
438		-	let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
439		-	then cfg[idxAmtAssetDcm]
440		-	else throw("Couldn't cast Any to String"))
441		-	let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
442		-	then cfg[idxPriceAssetDcm]
443		-	else throw("Couldn't cast Any to String"))
	411	+	func poolStatsREADONLY (lpAsset) = {
	412	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryDapp, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	413	+	let cfg = asAnyList(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil))
	414	+	let lpAssetId = fromBase58String(asString(cfg[idxPoolLPAssetId]))

github/deemru/w8io/6500d08 
88.65 ms ◑