w8 · tx · 5KP···P11

tx · 5KPi12He2papvNXVDQrnAgA4rzF8JUXTcvKJGXxJQP11

3MxpZZ46oGH5idG2rXfcUDwFotSELDEtyQu:  -0.01400000 Waves

2021.12.16 17:01 [1836903] smart account 3MxpZZ46oGH5idG2rXfcUDwFotSELDEtyQu > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5KPi12He2papvNXVDQrnAgA4rzF8JUXTcvKJGXxJQP11",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1639663315114,
    "version": 1,
    "sender": "3MxpZZ46oGH5idG2rXfcUDwFotSELDEtyQu",
    "senderPublicKey": "HLjebBrq1Pdi1gabeao41GqBhEf9kyjY2P4k6dbNW8XC",
    "proofs": [
        "NPEhVch1QWa7MWiVnaCmjonAT8232wwpQZ6t83YjVn52DjYdxS24snVMzpUN4PJpba8vuKB3XGHXCdqirtqZZkn"
    ],
    "script": "base64:AAIFAAAAAAAAADkIAhIDCgEIEgMKAQgSBAoCCAgSAwoBCBIHCgUBAQEICBIAEgMKAQgSBAoCCAESBAoCCAESBAoCCAEAAAAgAAAAAAZTQ0FMRTgAAAAAAAAAAAgAAAAABU1VTFQ4AAAAAAAF9eEAAAAAAAdTQ0FMRTE4AAAAAAAAAAASAAAAAAZNVUxUMTgJAAE2AAAAAQAN4Lazp2QAAAAAAAADU0VQAgAAAAJfXwAAAAAKemVyb0JpZ0ludAkAATYAAAABAAAAAAAAAAAAAAAAAA5pZHhQb29sQWRkcmVzcwAAAAAAAAAAAQAAAAANaWR4UG9vbFN0YXR1cwAAAAAAAAAAAgAAAAAQaWR4UG9vbExQQXNzZXRJZAAAAAAAAAAAAwAAAAANaWR4QW10QXNzZXRJZAAAAAAAAAAABAAAAAAPaWR4UHJpY2VBc3NldElkAAAAAAAAAAAFAAAAAA5pZHhBbXRBc3NldERjbQAAAAAAAAAABgAAAAAQaWR4UHJpY2VBc3NldERjbQAAAAAAAAAABwAAAAAOaWR4SUFtdEFzc2V0SWQAAAAAAAAAAAgAAAAAEGlkeElQcmljZUFzc2V0SWQAAAAAAAAAAAkAAAAADWlkeExQQXNzZXREY20AAAAAAAAAAAoBAAAAD2dldFN0cmluZ09yRmFpbAAAAAEAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQiAAAAAQUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgIAAAAPbWFuZGF0b3J5IHRoaXMuBQAAAANrZXkCAAAADyBpcyBub3QgZGVmaW5lZAEAAAAYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAAAAAgAAAAdhZGRyZXNzAAAAA2tleQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAB2FkZHJlc3MFAAAAA2tleQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAptYW5kYXRvcnkgCQAEJQAAAAEFAAAAB2FkZHJlc3MCAAAAAS4FAAAAA2tleQIAAAAPIGlzIG5vdCBkZWZpbmVkAQAAAAxnZXRJbnRPclplcm8AAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAALdmFsdWVPckVsc2UAAAACCQAEGgAAAAIFAAAAB2FkZHJlc3MFAAAAA2tleQAAAAAAAAAAAAEAAAAMZ2V0SW50T3JGYWlsAAAAAgAAAAdhZGRyZXNzAAAAA2tleQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAAB2FkZHJlc3MFAAAAA2tleQkAASwAAAACCQABLAAAAAICAAAAD21hbmRhdG9yeSB0aGlzLgUAAAADa2V5AgAAAA8gaXMgbm90IGRlZmluZWQBAAAAEWtleUZhY3RvcnlBZGRyZXNzAAAAAAIAAAAcJXMlc19fY29uZmlnX19mYWN0b3J5QWRkcmVzcwEAAAAma2V5RmFjdG9yeUxwQXNzZXRUb1Bvb2xDb250cmFjdEFkZHJlc3MAAAABAAAACmxwQXNzZXRTdHIJAAS5AAAAAgkABEwAAAACAgAAAAYlcyVzJXMJAARMAAAAAgUAAAAKbHBBc3NldFN0cgkABEwAAAACAgAAAB5tYXBwaW5nc19fbHBBc3NldDJQb29sQ29udHJhY3QFAAAAA25pbAUAAAADU0VQAQAAABBrZXlGYWN0b3J5THBMaXN0AAAAAAIAAAAQJXNfX2xwVG9rZW5zTGlzdAEAAAANa2V5RmFjdG9yeUNmZwAAAAACAAAAESVzX19mYWN0b3J5Q29uZmlnAQAAABhyZWFkRmFjdG9yeUFkZHJlc3NPckZhaWwAAAAACQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQkBAAAAEWtleUZhY3RvcnlBZGRyZXNzAAAAAAEAAAAKcmVhZExwTGlzdAAAAAAJAAS1AAAAAgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB0AAAACCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAkBAAAAEGtleUZhY3RvcnlMcExpc3QAAAAAAgAAAAAFAAAAA1NFUAEAAAAUcmVhZEZhY3RvcnlDZmdPckZhaWwAAAAACQAEtQAAAAIJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAkBAAAADWtleUZhY3RvcnlDZmcAAAAABQAAAANTRVABAAAAD2tleVN0YWtlZEJ5VXNlcgAAAAIAAAAOdXNlckFkZHJlc3NTdHIAAAAMbHBBc3NldElkU3RyCQAEuQAAAAIJAARMAAAAAgIAAAAOJXMlcyVzX19zdGFrZWQJAARMAAAAAgUAAAAOdXNlckFkZHJlc3NTdHIJAARMAAAAAgUAAAAMbHBBc3NldElkU3RyBQAAAANuaWwFAAAAA1NFUAEAAAAOa2V5U3Rha2VkVG90YWwAAAABAAAADGxwQXNzZXRJZFN0cgkAASwAAAACAgAAABclcyVzJXNfX3N0YWtlZF9fdG90YWxfXwUAAAAMbHBBc3NldElkU3RyAQAAAA1rZXlQb29sV2VpZ2h0AAAAAQAAAA9jb250cmFjdEFkZHJlc3MJAAS5AAAAAgkABEwAAAACAgAAAAQlcyVzCQAETAAAAAICAAAACnBvb2xXZWlnaHQJAARMAAAAAgUAAAAPY29udHJhY3RBZGRyZXNzBQAAAANuaWwFAAAAA1NFUAEAAAAXZ2V0U3Rha2luZ0FkZHJlc3NPckZhaWwAAAABAAAACmZhY3RvcnlDZmcJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAAGRAAAAAgUAAAAKZmFjdG9yeUNmZwAAAAAAAAAAAQEAAAAZaW50ZXJuYWxDdXJyZW50UmV3YXJkUmF0ZQAAAAIAAAAPc3Rha2luZ0NvbnRyYWN0AAAACWxwQXNzZXRJZAQAAAASd3hFbWlzc2lvblBlckJsb2NrAAAAAAAAAAAABAAAAAltYXhGYWN0b3IJAABoAAAAAgAAAAAAAAAAAQUAAAAFTVVMVDgEAAAADXRvdGFsTHBTdGFrZWQJAQAAAAxnZXRJbnRPclplcm8AAAACBQAAAA9zdGFraW5nQ29udHJhY3QJAQAAAA5rZXlTdGFrZWRUb3RhbAAAAAEFAAAACWxwQXNzZXRJZAkABEwAAAACBQAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAARMAAAAAgUAAAAJbWF4RmFjdG9yCQAETAAAAAIFAAAADXRvdGFsTHBTdGFrZWQFAAAAA25pbAAAAAoAAAABaQEAAAALY29uc3RydWN0b3IAAAABAAAADmZhY3RvcnlBZGRyZXNzAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAR0aGlzCQAAAgAAAAECAAAADm5vdCBhdXRob3JpemVkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABFrZXlGYWN0b3J5QWRkcmVzcwAAAAAFAAAADmZhY3RvcnlBZGRyZXNzBQAAAANuaWwAAAABaQEAAAAZY3VycmVudFJld2FyZFJhdGVSRUFET05MWQAAAAEAAAAJbHBBc3NldElkBAAAAA9mYWN0b3J5Q2ZnQXJyYXkJAQAAABRyZWFkRmFjdG9yeUNmZ09yRmFpbAAAAAAEAAAAD3N0YWtpbmdDb250cmFjdAkBAAAAF2dldFN0YWtpbmdBZGRyZXNzT3JGYWlsAAAAAQUAAAAPZmFjdG9yeUNmZ0FycmF5BAAAAApyZXdhcmREYXRhCQEAAAAZaW50ZXJuYWxDdXJyZW50UmV3YXJkUmF0ZQAAAAIFAAAAD3N0YWtpbmdDb250cmFjdAUAAAAJbHBBc3NldElkBAAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAAQAAAAJbWF4RmFjdG9yCQABkQAAAAIFAAAACnJld2FyZERhdGEAAAAAAAAAAAEEAAAADXRvdGFsTHBTdGFrZWQJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAgkABRQAAAACBQAAAANuaWwJAAS5AAAAAgkABEwAAAACAgAAAAYlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAARMAAAAAgkAAaQAAAABBQAAAAltYXhGYWN0b3IJAARMAAAAAgkAAaQAAAABBQAAAA10b3RhbExwU3Rha2VkBQAAAANuaWwFAAAAA1NFUAAAAAFpAQAAAB1jdXJyZW50VXNlclJld2FyZFJhdGVSRUFET05MWQAAAAIAAAAJbHBBc3NldElkAAAAC3VzZXJBZGRyZXNzBAAAAA9mYWN0b3J5Q2ZnQXJyYXkJAQAAABRyZWFkRmFjdG9yeUNmZ09yRmFpbAAAAAAEAAAAD3N0YWtpbmdDb250cmFjdAkBAAAAF2dldFN0YWtpbmdBZGRyZXNzT3JGYWlsAAAAAQUAAAAPZmFjdG9yeUNmZ0FycmF5BAAAAApyZXdhcmREYXRhCQEAAAAZaW50ZXJuYWxDdXJyZW50UmV3YXJkUmF0ZQAAAAIFAAAAD3N0YWtpbmdDb250cmFjdAUAAAAJbHBBc3NldElkBAAAABJ3eEVtaXNzaW9uUGVyQmxvY2sJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAAQAAAAJbWF4RmFjdG9yCQABkQAAAAIFAAAACnJld2FyZERhdGEAAAAAAAAAAAEEAAAADXRvdGFsTHBTdGFrZWQJAAGRAAAAAgUAAAAKcmV3YXJkRGF0YQAAAAAAAAAAAgQAAAAObHBTdGFrZWRCeVVzZXIJAQAAAAxnZXRJbnRPclplcm8AAAACBQAAAA9zdGFraW5nQ29udHJhY3QJAQAAAA9rZXlTdGFrZWRCeVVzZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAJbHBBc3NldElkBAAAAA1ib29zdGluZ1Bvd2VyCQAAaAAAAAIAAAAAAAAAAAEFAAAABU1VTFQ4CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAABiVkJWQlZAkABEwAAAACCQABpAAAAAEFAAAAEnd4RW1pc3Npb25QZXJCbG9jawkABEwAAAACCQABpAAAAAEFAAAACW1heEZhY3RvcgkABEwAAAACCQABpAAAAAEFAAAADXRvdGFsTHBTdGFrZWQJAARMAAAAAgkAAaQAAAABBQAAAA5scFN0YWtlZEJ5VXNlcgkABEwAAAACCQABpAAAAAEFAAAADWJvb3N0aW5nUG93ZXIFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAFWNsYWltZWRSZXdhcmRSRUFET05MWQAAAAEAAAALdXNlckFkZHJlc3MEAAAABmxwTGlzdAkBAAAACnJlYWRMcExpc3QAAAAABAAAAAZwcmVmaXgCAAAACiVzJWQlZCVkJXMKAQAAABtjbGFpbWVkUmV3YXJkQnlMcEFnZ3JlZ2F0b3IAAAACAAAACXJlc3VsdFN0cgAAAAZuZXh0THAEAAAABHJhbmQJAABkAAAAAgkAAGoAAAACCQAEsQAAAAEJAAJZAAAAAQUAAAAGbmV4dExwAAAAAAAAAYagCQAAagAAAAIJAASxAAAAAQkAAZsAAAABBQAAAAt1c2VyQWRkcmVzcwAAAAAAAAGGoAQAAAAHYWJzUmFuZAMJAABmAAAAAgAAAAAAAAAAAAUAAAAEcmFuZAkBAAAAAS0AAAABBQAAAARyYW5kBQAAAARyYW5kBAAAAAN2YWwJAABkAAAAAgkAAGgAAAACCQAAagAAAAIFAAAAB2Fic1JhbmQAAAAAAAAAAGQFAAAABU1VTFQ4CQAAaAAAAAIFAAAAB2Fic1JhbmQJAABpAAAAAgUAAAAFTVVMVDgAAAAAAAABhqAEAAAAEG1pblJld2FyZENsYWltZWQAAAAAAAAAAAAEAAAAEmJvb3N0UmV3YXJkQ2xhaW1lZAAAAAAAAAAAAAQAAAALZ0ZlZUNsYWltZWQAAAAAAAAAAAAJAAS5AAAAAgkABEwAAAACCQABLAAAAAIFAAAABnByZWZpeAUAAAAJcmVzdWx0U3RyCQAETAAAAAIFAAAABm5leHRMcAkABEwAAAACCQABpAAAAAEFAAAAEG1pblJld2FyZENsYWltZWQJAARMAAAAAgkAAaQAAAABBQAAABJib29zdFJld2FyZENsYWltZWQJAARMAAAAAgkAAaQAAAABBQAAAAtnRmVlQ2xhaW1lZAkABEwAAAACAgAAAANlbmQFAAAAA25pbAUAAAADU0VQBAAAAAZyZXN1bHQKAAAAAAIkbAUAAAAGbHBMaXN0CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAIAAAACJXMKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAABtjbGFpbWVkUmV3YXJkQnlMcEFnZ3JlZ2F0b3IAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKCQAFFAAAAAIFAAAAA25pbAkAASwAAAACCQABLAAAAAIFAAAABnJlc3VsdAUAAAADU0VQBQAAAAt1c2VyQWRkcmVzcwAAAAFpAQAAABFjYWxjQm9vc3RSRUFET05MWQAAAAUAAAANZGVsdGFXeEFtb3VudAAAABdkZWx0YUxvY2tQZXJpb2RJbkJsb2NrcwAAAA1kZWx0YUxwQW1vdW50AAAADGxwQXNzZXRJZE9wdAAAAA51c2VyQWRkcmVzc09wdAQAAAAFYm9vc3QDCQEAAAACIT0AAAACBQAAAA51c2VyQWRkcmVzc09wdAIAAAAACQAAaAAAAAIAAAAAAAAAAAMFAAAABU1VTFQ4CQAAaAAAAAIAAAAAAAAAAAEFAAAABU1VTFQ4BAAAAAltb250aGVzMTgJAAE8AAAAAwkAATYAAAABBQAAABdkZWx0YUxvY2tQZXJpb2RJbkJsb2NrcwUAAAAGTVVMVDE4CQABNgAAAAEJAABoAAAAAgAAAAAAAAAAHgAAAAAAAAAFoAQAAAAHY29lZmYxOAkAAToAAAACCQAAdgAAAAYFAAAACW1vbnRoZXMxOAUAAAAHU0NBTEUxOAkAATYAAAABAAAAAAAAAAACAAAAAAAAAAAABQAAAAdTQ0FMRTE4BQAAAAZIQUxGVVAJAAE2AAAAAQAAAAAAAAAAZAQAAAAJZ1d4QW1vdW50CQABPAAAAAMJAAE2AAAAAQUAAAANZGVsdGFXeEFtb3VudAUAAAAHY29lZmYxOAUAAAAGTVVMVDE4CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAABCVkJWQJAARMAAAAAgkAAaQAAAABCQABoAAAAAEFAAAACWdXeEFtb3VudAkABEwAAAACCQABpAAAAAEFAAAABWJvb3N0BQAAAANuaWwFAAAAA1NFUAAAAAFpAQAAABd3eEVtaXNzaW9uU3RhdHNSRUFET05MWQAAAAAEAAAAB09ORU1VTFQJAAGkAAAAAQUAAAAFTVVMVDgEAAAAA09ORQIAAAABMQQAAAAPdG90YWxXeFJlbGVhc2VkAAAAAAAAAAAABAAAAA10b3RhbFd4TG9ja2VkAAAAAAAAAAAABAAAABhsb2Nrc0R1cmF0aW9uU3VtSW5CbG9ja3MAAAAAAAAAAAAEAAAACmxvY2tzQ291bnQAAAAAAAAAAAAJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAIJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAA90b3RhbFd4UmVsZWFzZWQJAARMAAAAAgkAAaQAAAABBQAAAA10b3RhbFd4TG9ja2VkCQAETAAAAAIJAAGkAAAAAQUAAAAYbG9ja3NEdXJhdGlvblN1bUluQmxvY2tzCQAETAAAAAIJAAGkAAAAAQUAAAAKbG9ja3NDb3VudAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAARcG9vbFN0YXRzUkVBRE9OTFkAAAABAAAAB2xwQXNzZXQEAAAADmZhY3RvcnlBZGRyZXNzCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAQAAAALcG9vbEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAA5mYWN0b3J5QWRkcmVzcwkBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQUAAAAHbHBBc3NldAQAAAADY2ZnCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAACUxpc3RbQW55XQUAAAABQAkAAAIAAAABAgAAAB5Db3VsZG4ndCBjYXN0IEFueSB0byBMaXN0W0FueV0EAAAACWxwQXNzZXRJZAkAAlkAAAABCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQDCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAACmFtdEFzc2V0SWQKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAMcHJpY2VBc3NldElkCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAALaUFtdEFzc2V0SWQKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAAOaWR4SUFtdEFzc2V0SWQDCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAADWlQcmljZUFzc2V0SWQKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4SVByaWNlQXNzZXRJZAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQoAAAAAAUAJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAANcHJpY2VBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20DCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAADXBvb2xMUEJhbGFuY2UICQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAPsAAAAAQUAAAAJbHBBc3NldElkCQABLAAAAAIJAAEsAAAAAgIAAAAGQXNzZXQgCQACWAAAAAEFAAAACWxwQXNzZXRJZAIAAAAOIGRvZXNuJ3QgZXhpc3QAAAAIcXVhbnRpdHkEAAAAEmFjY0FtdEFzc2V0QmFsYW5jZQoAAAAAAUAJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAHGdldEFjY0JhbGFuY2VXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAKYW10QXNzZXRJZAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxwcmljZUFzc2V0SWQFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAANJbnQFAAAAAUAJAAACAAAAAQIAAAAYQ291bGRuJ3QgY2FzdCBBbnkgdG8gSW50BAAAAApwcmljZXNMaXN0CgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAZY2FsY1ByaWNlc1dyYXBwZXJSRUFET05MWQkABEwAAAACBQAAABJhY2NBbXRBc3NldEJhbGFuY2UJAARMAAAAAgUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAARMAAAAAgUAAAANcG9vbExQQmFsYW5jZQUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAACUxpc3RbQW55XQUAAAABQAkAAAIAAAABAgAAAB5Db3VsZG4ndCBjYXN0IEFueSB0byBMaXN0W0FueV0EAAAACGN1clByaWNlAAAAAAAAAAAABAAAAA9scEFtdEFzc2V0U2hhcmUKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABZmcm9tWDE4V3JhcHBlclJFQURPTkxZCQAETAAAAAIJAAGRAAAAAgUAAAAKcHJpY2VzTGlzdAAAAAAAAAAAAQkABEwAAAACBQAAAAVNVUxUOAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAEWxwUHJpY2VBc3NldFNoYXJlCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAWZnJvbVgxOFdyYXBwZXJSRUFET05MWQkABEwAAAACCQABkQAAAAIFAAAACnByaWNlc0xpc3QAAAAAAAAAAAIJAARMAAAAAgUAAAAFTVVMVDgFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAANJbnQFAAAAAUAJAAACAAAAAQIAAAAYQ291bGRuJ3QgY2FzdCBBbnkgdG8gSW50BAAAAApwb29sV2VpZ2h0CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAkBAAAADWtleVBvb2xXZWlnaHQAAAABCQAEJQAAAAEFAAAAC3Bvb2xBZGRyZXNzCQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAADiVkJWQlZCVkJWQlZCVkCQAETAAAAAIJAAGkAAAAAQUAAAASYWNjQW10QXNzZXRCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAARMAAAAAgkAAaQAAAABBQAAAA1wb29sTFBCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAIY3VyUHJpY2UJAARMAAAAAgkAAaQAAAABBQAAAA9scEFtdEFzc2V0U2hhcmUJAARMAAAAAgkAAaQAAAABBQAAABFscFByaWNlQXNzZXRTaGFyZQkABEwAAAACCQABpAAAAAEFAAAACnBvb2xXZWlnaHQFAAAAA25pbAUAAAADU0VQAAAAAWkBAAAAJHBvb2xFdmFsdWF0ZVB1dEJ5QW1vdW50QXNzZXRSRUFET05MWQAAAAIAAAAHbHBBc3NldAAAAAxpbkFtQXNzZXRBbXQEAAAADmZhY3RvcnlBZGRyZXNzCQEAAAAYcmVhZEZhY3RvcnlBZGRyZXNzT3JGYWlsAAAAAAQAAAALcG9vbEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEJAQAAABhnZXRTdHJpbmdCeUFkZHJlc3NPckZhaWwAAAACBQAAAA5mYWN0b3J5QWRkcmVzcwkBAAAAJmtleUZhY3RvcnlMcEFzc2V0VG9Qb29sQ29udHJhY3RBZGRyZXNzAAAAAQUAAAAHbHBBc3NldAQAAAADY2ZnCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0UG9vbENvbmZpZ1dyYXBwZXJSRUFET05MWQUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAACUxpc3RbQW55XQUAAAABQAkAAAIAAAABAgAAAB5Db3VsZG4ndCBjYXN0IEFueSB0byBMaXN0W0FueV0EAAAACWxwQXNzZXRJZAkAAlkAAAABCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFBvb2xMUEFzc2V0SWQDCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAADGFtQXNzZXRJZFN0cgoAAAAAAUAJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhBbXRBc3NldElkAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAAlhbUFzc2V0SWQJAAJZAAAAAQUAAAAMYW1Bc3NldElkU3RyBAAAAAxwckFzc2V0SWRTdHIKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAAPaWR4UHJpY2VBc3NldElkAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAAlwckFzc2V0SWQJAAJZAAAAAQUAAAAMcHJBc3NldElkU3RyBAAAAAthbXRBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAADmlkeEFtdEFzc2V0RGNtAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAA1wcmljZUFzc2V0RGNtCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAAQaWR4UHJpY2VBc3NldERjbQMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAKcG9vbFN0YXR1cwoAAAAAAUAJAAGRAAAAAgUAAAADY2ZnBQAAAA1pZHhQb29sU3RhdHVzAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAA1wb29sTFBCYWxhbmNlCAkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAD7AAAAAEFAAAACWxwQXNzZXRJZAkAASwAAAACCQABLAAAAAICAAAABkFzc2V0IAkAAlgAAAABBQAAAAlscEFzc2V0SWQCAAAADiBkb2Vzbid0IGV4aXN0AAAACHF1YW50aXR5BAAAABJhY2NBbXRBc3NldEJhbGFuY2UKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAADGFtQXNzZXRJZFN0cgUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAFGFjY1ByaWNlQXNzZXRCYWxhbmNlCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxwckFzc2V0SWRTdHIFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAANJbnQFAAAAAUAJAAACAAAAAQIAAAAYQ291bGRuJ3QgY2FzdCBBbnkgdG8gSW50BAAAAA5hbXRBc3NldEFtdFgxOAkAAacAAAABCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAASYWNjQW10QXNzZXRCYWxhbmNlCQAETAAAAAIFAAAAC2FtdEFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAQcHJpY2VBc3NldEFtdFgxOAkAAacAAAABCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAUYWNjUHJpY2VBc3NldEJhbGFuY2UJAARMAAAAAgUAAAANcHJpY2VBc3NldERjbQUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAAC2N1clByaWNlWDE4AwkAAAAAAAACBQAAAA1wb29sTFBCYWxhbmNlAAAAAAAAAAAABQAAAAp6ZXJvQmlnSW50CQABpwAAAAEKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAB5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAABBwcmljZUFzc2V0QW10WDE4CQAETAAAAAIJAAGmAAAAAQUAAAAOYW10QXNzZXRBbXRYMTgFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAAhjdXJQcmljZQoAAAAAAUAJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFmZyb21YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAAAtjdXJQcmljZVgxOAkABEwAAAACBQAAAAVNVUxUOAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAD2luQW1Bc3NldEFtdFgxOAkAAacAAAABCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAMaW5BbUFzc2V0QW10CQAETAAAAAIFAAAAC2FtdEFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAPaW5QckFzc2V0QW10WDE4CQABPAAAAAMFAAAAD2luQW1Bc3NldEFtdFgxOAUAAAALY3VyUHJpY2VYMTgFAAAABk1VTFQxOAQAAAAMaW5QckFzc2V0QW10CgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAWZnJvbVgxOFdyYXBwZXJSRUFET05MWQkABEwAAAACCQABpgAAAAEFAAAAD2luUHJBc3NldEFtdFgxOAkABEwAAAACBQAAAA1wcmljZUFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAABQAIAAAADSW50BQAAAAFACQAAAgAAAAECAAAAGENvdWxkbid0IGNhc3QgQW55IHRvIEludAQAAAADcmVzCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAACNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkABEwAAAACAgAAAAAJAARMAAAAAgAAAAAAAAehIAkABEwAAAACBQAAAAxpbkFtQXNzZXRBbXQJAARMAAAAAgUAAAAJYW1Bc3NldElkCQAETAAAAAIFAAAADGluUHJBc3NldEFtdAkABEwAAAACBQAAAAlwckFzc2V0SWQJAARMAAAAAgIAAAAACQAETAAAAAIGCQAETAAAAAIHBQAAAANuaWwFAAAAA25pbAQAAAANJHQwMTA5MDExMTI1NAQAAAAHJG1hdGNoMAUAAAADcmVzAwMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzECAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzMCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzQCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzUCAAAAA0ludAkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNgIAAAADSW50BwcHBwQAAAAJY2FsY0xwQW10CAUAAAAHJG1hdGNoMAAAAAJfMQQAAAAMY3VyUHJpY2VDYWxjCAUAAAAHJG1hdGNoMAAAAAJfMwQAAAAJYW1CYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNAQAAAAJcHJCYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNQQAAAAKbHBFbWlzc2lvbggFAAAAByRtYXRjaDAAAAACXzYJAAUXAAAABQUAAAAJY2FsY0xwQW10BQAAAAxjdXJQcmljZUNhbGMFAAAACWFtQmFsYW5jZQUAAAAJcHJCYWxhbmNlBQAAAApscEVtaXNzaW9uCQAAAgAAAAECAAAAE0NvdWxkbid0IGNhc3QgdHlwZXMEAAAACWNhbGNMcEFtdAgFAAAADSR0MDEwOTAxMTEyNTQAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAADSR0MDEwOTAxMTEyNTQAAAACXzIEAAAACWFtQmFsYW5jZQgFAAAADSR0MDEwOTAxMTEyNTQAAAACXzMEAAAACXByQmFsYW5jZQgFAAAADSR0MDEwOTAxMTEyNTQAAAACXzQEAAAACmxwRW1pc3Npb24IBQAAAA0kdDAxMDkwMTExMjU0AAAAAl81CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAAECVkJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAAljYWxjTHBBbXQJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAACWFtQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACXByQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACmxwRW1pc3Npb24JAARMAAAAAgUAAAAKcG9vbFN0YXR1cwkABEwAAAACCQABpAAAAAEFAAAADGluQW1Bc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAADGluUHJBc3NldEFtdAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAjcG9vbEV2YWx1YXRlUHV0QnlQcmljZUFzc2V0UkVBRE9OTFkAAAACAAAAB2xwQXNzZXQAAAAMaW5QckFzc2V0QW10BAAAAA5mYWN0b3J5QWRkcmVzcwkBAAAAGHJlYWRGYWN0b3J5QWRkcmVzc09yRmFpbAAAAAAEAAAAC3Bvb2xBZGRyZXNzCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAAAAAgUAAAAOZmFjdG9yeUFkZHJlc3MJAQAAACZrZXlGYWN0b3J5THBBc3NldFRvUG9vbENvbnRyYWN0QWRkcmVzcwAAAAEFAAAAB2xwQXNzZXQEAAAAA2NmZwoAAAAAAUAJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAHGdldFBvb2xDb25maWdXcmFwcGVyUkVBRE9OTFkFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAAlMaXN0W0FueV0FAAAAAUAJAAACAAAAAQIAAAAeQ291bGRuJ3QgY2FzdCBBbnkgdG8gTGlzdFtBbnldBAAAAAlscEFzc2V0SWQJAAJZAAAAAQoAAAAAAUAJAAGRAAAAAgUAAAADY2ZnBQAAABBpZHhQb29sTFBBc3NldElkAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAAxhbUFzc2V0SWRTdHIKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAANaWR4QW10QXNzZXRJZAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAJYW1Bc3NldElkCQACWQAAAAEFAAAADGFtQXNzZXRJZFN0cgQAAAAMcHJBc3NldElkU3RyCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAD2lkeFByaWNlQXNzZXRJZAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAJcHJBc3NldElkCQACWQAAAAEFAAAADHByQXNzZXRJZFN0cgQAAAALYW10QXNzZXREY20JAQAAAA1wYXJzZUludFZhbHVlAAAAAQoAAAAAAUAJAAGRAAAAAgUAAAADY2ZnBQAAAA5pZHhBbXRBc3NldERjbQMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAANcHJpY2VBc3NldERjbQkBAAAADXBhcnNlSW50VmFsdWUAAAABCgAAAAABQAkAAZEAAAACBQAAAANjZmcFAAAAEGlkeFByaWNlQXNzZXREY20DCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAACnBvb2xTdGF0dXMKAAAAAAFACQABkQAAAAIFAAAAA2NmZwUAAAANaWR4UG9vbFN0YXR1cwMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAANcG9vbExQQmFsYW5jZQgJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkAA+wAAAABBQAAAAlscEFzc2V0SWQJAAEsAAAAAgkAASwAAAACAgAAAAZBc3NldCAJAAJYAAAAAQUAAAAJbHBBc3NldElkAgAAAA4gZG9lc24ndCBleGlzdAAAAAhxdWFudGl0eQQAAAAMYW1CYWxhbmNlUmF3CgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAcZ2V0QWNjQmFsYW5jZVdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxhbUFzc2V0SWRTdHIFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAANJbnQFAAAAAUAJAAACAAAAAQIAAAAYQ291bGRuJ3QgY2FzdCBBbnkgdG8gSW50BAAAAAxwckJhbGFuY2VSYXcKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABxnZXRBY2NCYWxhbmNlV3JhcHBlclJFQURPTkxZCQAETAAAAAIFAAAADHByQXNzZXRJZFN0cgUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAD2FtQmFsYW5jZVJhd1gxOAkAAacAAAABCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAMYW1CYWxhbmNlUmF3CQAETAAAAAIFAAAAC2FtdEFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAABQAIAAAAGU3RyaW5nBQAAAAFACQAAAgAAAAECAAAAG0NvdWxkbid0IGNhc3QgQW55IHRvIFN0cmluZwQAAAAPcHJCYWxhbmNlUmF3WDE4CQABpwAAAAEKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABR0b1gxOFdyYXBwZXJSRUFET05MWQkABEwAAAACBQAAAAxwckJhbGFuY2VSYXcJAARMAAAAAgUAAAANcHJpY2VBc3NldERjbQUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAABlN0cmluZwUAAAABQAkAAAIAAAABAgAAABtDb3VsZG4ndCBjYXN0IEFueSB0byBTdHJpbmcEAAAAC2N1clByaWNlWDE4AwkAAAAAAAACBQAAAA1wb29sTFBCYWxhbmNlAAAAAAAAAAAABQAAAAp6ZXJvQmlnSW50CQABpwAAAAEKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAB5jYWxjUHJpY2VCaWdJbnRXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAAA9wckJhbGFuY2VSYXdYMTgJAARMAAAAAgkAAaYAAAABBQAAAA9hbUJhbGFuY2VSYXdYMTgFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAAhjdXJQcmljZQoAAAAAAUAJAAP8AAAABAUAAAALcG9vbEFkZHJlc3MCAAAAFmZyb21YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgkAAaYAAAABBQAAAAtjdXJQcmljZVgxOAkABEwAAAACBQAAAAVNVUxUOAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAAUACAAAAA0ludAUAAAABQAkAAAIAAAABAgAAABhDb3VsZG4ndCBjYXN0IEFueSB0byBJbnQEAAAAD2luUHJBc3NldEFtdFgxOAkAAacAAAABCgAAAAABQAkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAUdG9YMThXcmFwcGVyUkVBRE9OTFkJAARMAAAAAgUAAAAMaW5QckFzc2V0QW10CQAETAAAAAIFAAAADXByaWNlQXNzZXREY20FAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAFAAgAAAAZTdHJpbmcFAAAAAUAJAAACAAAAAQIAAAAbQ291bGRuJ3QgY2FzdCBBbnkgdG8gU3RyaW5nBAAAAA9pbkFtQXNzZXRBbXRYMTgJAAE8AAAAAwUAAAAPaW5QckFzc2V0QW10WDE4BQAAAAZNVUxUMTgFAAAAC2N1clByaWNlWDE4BAAAAAxpbkFtQXNzZXRBbXQKAAAAAAFACQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAABZmcm9tWDE4V3JhcHBlclJFQURPTkxZCQAETAAAAAIJAAGmAAAAAQUAAAAPaW5BbUFzc2V0QW10WDE4CQAETAAAAAIFAAAAC2FtdEFzc2V0RGNtBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAABQAIAAAADSW50BQAAAAFACQAAAgAAAAECAAAAGENvdWxkbid0IGNhc3QgQW55IHRvIEludAQAAAADcmVzCQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAACNlc3RpbWF0ZVB1dE9wZXJhdGlvbldyYXBwZXJSRUFET05MWQkABEwAAAACAgAAAAAJAARMAAAAAgAAAAAAAAehIAkABEwAAAACBQAAAAxpbkFtQXNzZXRBbXQJAARMAAAAAgUAAAAJYW1Bc3NldElkCQAETAAAAAIFAAAADGluUHJBc3NldEFtdAkABEwAAAACBQAAAAlwckFzc2V0SWQJAARMAAAAAgIAAAAACQAETAAAAAIGCQAETAAAAAIHBQAAAANuaWwFAAAAA25pbAQAAAANJHQwMTM5NTcxNDMxMAQAAAAHJG1hdGNoMAUAAAADcmVzAwMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzECAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzMCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzQCAAAAA0ludAMJAAABAAAAAggFAAAAByRtYXRjaDAAAAACXzUCAAAAA0ludAkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNgIAAAADSW50BwcHBwQAAAAJY2FsY0xwQW10CAUAAAAHJG1hdGNoMAAAAAJfMQQAAAAMY3VyUHJpY2VDYWxjCAUAAAAHJG1hdGNoMAAAAAJfMwQAAAAJYW1CYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNAQAAAAJcHJCYWxhbmNlCAUAAAAHJG1hdGNoMAAAAAJfNQQAAAAKbHBFbWlzc2lvbggFAAAAByRtYXRjaDAAAAACXzYJAAUXAAAABQUAAAAJY2FsY0xwQW10BQAAAAxjdXJQcmljZUNhbGMFAAAACWFtQmFsYW5jZQUAAAAJcHJCYWxhbmNlBQAAAApscEVtaXNzaW9uCQAAAgAAAAECAAAAE0NvdWxkbid0IGNhc3QgdHlwZXMEAAAACWNhbGNMcEFtdAgFAAAADSR0MDEzOTU3MTQzMTAAAAACXzEEAAAADGN1clByaWNlQ2FsYwgFAAAADSR0MDEzOTU3MTQzMTAAAAACXzIEAAAACWFtQmFsYW5jZQgFAAAADSR0MDEzOTU3MTQzMTAAAAACXzMEAAAACXByQmFsYW5jZQgFAAAADSR0MDEzOTU3MTQzMTAAAAACXzQEAAAACmxwRW1pc3Npb24IBQAAAA0kdDAxMzk1NzE0MzEwAAAAAl81CQAFFAAAAAIFAAAAA25pbAkABLkAAAACCQAETAAAAAICAAAAECVkJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAAljYWxjTHBBbXQJAARMAAAAAgkAAaQAAAABBQAAAAhjdXJQcmljZQkABEwAAAACCQABpAAAAAEFAAAACWFtQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACXByQmFsYW5jZQkABEwAAAACCQABpAAAAAEFAAAACmxwRW1pc3Npb24JAARMAAAAAgUAAAAKcG9vbFN0YXR1cwkABEwAAAACCQABpAAAAAEFAAAADGluQW1Bc3NldEFtdAkABEwAAAACCQABpAAAAAEFAAAADGluUHJBc3NldEFtdAUAAAADbmlsBQAAAANTRVAAAAABaQEAAAAXcG9vbEV2YWx1YXRlR2V0UkVBRE9OTFkAAAACAAAAEHBheW1lbnRMcEFzc2V0SWQAAAAMcGF5bWVudExwQW10BAAAAA5mYWN0b3J5QWRkcmVzcwkBAAAAGHJlYWRGYWN0b3J5QWRkcmVzc09yRmFpbAAAAAAEAAAAC3Bvb2xBZGRyZXNzCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABCQEAAAAYZ2V0U3RyaW5nQnlBZGRyZXNzT3JGYWlsAAAAAgUAAAAOZmFjdG9yeUFkZHJlc3MJAQAAACZrZXlGYWN0b3J5THBBc3NldFRvUG9vbENvbnRyYWN0QWRkcmVzcwAAAAEFAAAAEHBheW1lbnRMcEFzc2V0SWQEAAAAA3JlcwkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAjZXN0aW1hdGVHZXRPcGVyYXRpb25XcmFwcGVyUkVBRE9OTFkJAARMAAAAAgIAAAAACQAETAAAAAIFAAAAEHBheW1lbnRMcEFzc2V0SWQJAARMAAAAAgUAAAAMcGF5bWVudExwQW10CQAETAAAAAIJAAQlAAAAAQUAAAALcG9vbEFkZHJlc3MFAAAAA25pbAUAAAADbmlsBAAAAA0kdDAxNTA1ODE1NDc1BAAAAAckbWF0Y2gwBQAAAANyZXMDAwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfMQIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfMgIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNQIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNgIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfNwIAAAADSW50AwkAAAEAAAACCAUAAAAHJG1hdGNoMAAAAAJfOAIAAAAGU3RyaW5nCQAAAQAAAAIIBQAAAAckbWF0Y2gwAAAAAl85AgAAAAZTdHJpbmcHBwcHBwcEAAAACG91dEFtQW10CAUAAAAHJG1hdGNoMAAAAAJfMQQAAAAIb3V0UHJBbXQIBQAAAAckbWF0Y2gwAAAAAl8yBAAAAAlhbUJhbGFuY2UIBQAAAAckbWF0Y2gwAAAAAl81BAAAAAlwckJhbGFuY2UIBQAAAAckbWF0Y2gwAAAAAl82BAAAAApscEVtaXNzaW9uCAUAAAAHJG1hdGNoMAAAAAJfNwQAAAAIY3VyUHJpY2UIBQAAAAckbWF0Y2gwAAAAAl84BAAAAApwb29sU3RhdHVzCAUAAAAHJG1hdGNoMAAAAAJfOQkABRkAAAAHBQAAAAhvdXRBbUFtdAUAAAAIb3V0UHJBbXQFAAAACWFtQmFsYW5jZQUAAAAJcHJCYWxhbmNlBQAAAApscEVtaXNzaW9uBQAAAAhjdXJQcmljZQUAAAAKcG9vbFN0YXR1cwkAAAIAAAABAgAAABNDb3VsZG4ndCBjYXN0IHR5cGVzBAAAAAhvdXRBbUFtdAgFAAAADSR0MDE1MDU4MTU0NzUAAAACXzEEAAAACG91dFByQW10CAUAAAANJHQwMTUwNTgxNTQ3NQAAAAJfMgQAAAAJYW1CYWxhbmNlCAUAAAANJHQwMTUwNTgxNTQ3NQAAAAJfMwQAAAAJcHJCYWxhbmNlCAUAAAANJHQwMTUwNTgxNTQ3NQAAAAJfNAQAAAAKbHBFbWlzc2lvbggFAAAADSR0MDE1MDU4MTU0NzUAAAACXzUEAAAACGN1clByaWNlCAUAAAANJHQwMTUwNTgxNTQ3NQAAAAJfNgQAAAAKcG9vbFN0YXR1cwgFAAAADSR0MDE1MDU4MTU0NzUAAAACXzcJAAUUAAAAAgUAAAADbmlsCQAEuQAAAAIJAARMAAAAAgIAAAAOJWQlZCVkJWQlZCVkJWQJAARMAAAAAgkAAaQAAAABBQAAAAhvdXRBbUFtdAkABEwAAAACCQABpAAAAAEFAAAACG91dFByQW10CQAETAAAAAIJAAGkAAAAAQUAAAAJYW1CYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAJcHJCYWxhbmNlCQAETAAAAAIJAAGkAAAAAQUAAAAKbHBFbWlzc2lvbgkABEwAAAACBQAAAAhjdXJQcmljZQkABEwAAAACBQAAAApwb29sU3RhdHVzBQAAAANuaWwFAAAAA1NFUAAAAAAC4Cwf",
    "chainId": 84,
    "height": 1836903,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8pGigL65MavoTS7SehK6YyieCmD6LUxoTZVkYysshMrj
Next: none

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

Old	New		Differences
10	10		let MULT18 = toBigInt(1000000000000000000)
11	11
12	12		let SEP = "__"
	13	+
	14	+	let zeroBigInt = toBigInt(0)
13	15
14	16		let idxPoolAddress = 1
15	17

46	48		func keyFactoryAddress () = "%s%s__config__factoryAddress"
47	49
48	50
49		-	let IdxFactoryCfgStakingDapp = 1
50		-
51		-	let IdxFactoryCfgBoostingDapp = 2
52		-
53		-	let IdxFactoryCfgIdoDapp = 3
54		-
55		-	let IdxFactoryCfgTeamDapp = 4
56		-
57		-	let IdxFactoryCfgEmissionDapp = 5
58		-
59		-	let IdxFactoryCfgRestDapp = 6
60		-
61		-	let IdxFactoryCfgSlippageDapp = 7
62		-
63		-	func keyFactoryCfg () = "%s__factoryConfig"
64		-
65		-
66		-	func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
	51	+	func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
67	52
68	53
69	54		func keyFactoryLpList () = "%s__lpTokensList"
70	55
71	56
72		-	func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
73		-
74		-
75		-	func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
	57	+	func keyFactoryCfg () = "%s__factoryConfig"
76	58
77	59
78	60		func readFactoryAddressOrFail () = addressFromStringValue(getStringOrFail(keyFactoryAddress()))

81	63		func readLpList () = split(valueOrElse(getString(readFactoryAddressOrFail(), keyFactoryLpList()), ""), SEP)
82	64
83	65
84		-	func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
85		-
86		-
87		-	func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
88		-
89		-
90		-	func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
91		-
92		-
93		-	func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
94		-
95		-
96		-	func keyBoostingLockParamTotalAmount () = "%s%s__stats__activeTotalLocked"
97		-
98		-
99		-	func keyBoostingStatsLocksDurationSumInBlocks () = "%s%s__stats__locksDurationSumInBlocks"
100		-
101		-
102		-	func keyBoostingStatsLocksCount () = "%s%s__stats__locksCount"
103		-
104		-
105		-	func keyBoostingStatsUsersCount () = "%s%s__stats__activeUsersCount"
	66	+	func readFactoryCfgOrFail () = split(getStringByAddressOrFail(readFactoryAddressOrFail(), keyFactoryCfg()), SEP)
106	67
107	68
108	69		func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)

111	72		func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
112	73
113	74
114		-	func ~~keyEmissionRatePerBlockCurrent~~ () = "%s%s~~__ratePerBlock__current~~"
	75	+	func keyPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
115	76
116	77
117		-	func ~~keyEmissionRatePerBlockMaxCurrent~~ () = ~~"%s%s__ratePerBlockMax__current"~~
	78	+	func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[1])
118	79
119	80
120		-	func keyEmissionStartBlock () = "%s%s__emission__startBlock"
121		-
122		-
123		-	func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
124		-
125		-
126		-	func keyEmissionEndBlock () = "%s%s__emission__endBlock"
127		-
128		-
129		-	func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
130		-	let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
131		-	let poolWeightMult = MULT8
132		-	let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
133		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
134		-	let wxEmissionPerBlockMax = getIntOrFail(emissionContract, keyEmissionRatePerBlockMaxCurrent())
135		-	let poolWxEmissionPerBlock = fraction(wxEmissionPerBlock, poolWeight, poolWeightMult)
136		-	let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
137		-	let maxFactor = (3 * MULT8)
	81	+	func internalCurrentRewardRate (stakingContract,lpAssetId) = {
	82	+	let wxEmissionPerBlock = 0
	83	+	let maxFactor = (1 * MULT8)
138	84		let totalLpStaked = getIntOrZero(stakingContract, keyStakedTotal(lpAssetId))
139		-	[~~poolWxEmissionPerBlock~~, maxFactor, totalLpStaked]
	85	+	[wxEmissionPerBlock, maxFactor, totalLpStaked]
140	86		}
141	87
142	88

149	95
150	96		@Callable(i)
151	97		func currentRewardRateREADONLY (lpAssetId) = {
152		-	let factoryContract = readFactoryAddressOrFail()
153		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
154		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
155		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
156		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	98	+	let factoryCfgArray = readFactoryCfgOrFail()
	99	+	let stakingContract = getStakingAddressOrFail(factoryCfgArray)
	100	+	let rewardData = internalCurrentRewardRate(stakingContract, lpAssetId)
157	101		let wxEmissionPerBlock = rewardData[0]
158	102		let maxFactor = rewardData[1]
159	103		let totalLpStaked = rewardData[2]

164	108
165	109		@Callable(i)
166	110		func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
167		-	let factoryContract = readFactoryAddressOrFail()
168		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
169		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
170		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
171		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	111	+	let factoryCfgArray = readFactoryCfgOrFail()
	112	+	let stakingContract = getStakingAddressOrFail(factoryCfgArray)
	113	+	let rewardData = internalCurrentRewardRate(stakingContract, lpAssetId)
172	114		let wxEmissionPerBlock = rewardData[0]
173	115		let maxFactor = rewardData[1]
174	116		let totalLpStaked = rewardData[2]
175	117		let lpStakedByUser = getIntOrZero(stakingContract, keyStakedByUser(userAddress, lpAssetId))
176	118		let boostingPower = (1 * MULT8)
177		-	$Tuple2(nil, makeString(["~~%d%d~~%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower)], SEP))
	119	+	$Tuple2(nil, makeString(["%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower)], SEP))
178	120		}
179	121
180	122

189	131		then -(rand)
190	132		else rand
191	133		let val = (((absRand % 100) * MULT8) + (absRand * (MULT8 / 100000)))
192		-	let minRewardClaimed = ~~((val / 6) * 2)~~
193		-	let boostRewardClaimed = ~~((val / 6) * 3)~~
194		-	let gFeeClaimed = ~~(val / 6)~~
	134	+	let minRewardClaimed = 0
	135	+	let boostRewardClaimed = 0
	136	+	let gFeeClaimed = 0
195	137		makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
196	138		}
197	139

199	141		let $l = lpList
200	142		let $s = size($l)
201	143		let $acc0 = "%s"
202		-	func 1 ($a,$i) = if (($i >= $s))
	144	+	func $f0_1 ($a,$i) = if (($i >= $s))
203	145		then $a
204	146		else claimedRewardByLpAggregator($a, $l[$i])
205	147
206		-	func 2 ($a,$i) = if (($i >= $s))
	148	+	func $f0_2 ($a,$i) = if (($i >= $s))
207	149		then $a
208	150		else throw("List size exceeds 10")
209	151
210		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	152	+	$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)
211	153		}
212	154		$Tuple2(nil, ((result + SEP) + userAddress))
213	155		}

220	162		then (3 * MULT8)
221	163		else (1 * MULT8)
222	164		let monthes18 = fraction(toBigInt(deltaLockPeriodInBlocks), MULT18, toBigInt((30 * 1440)))
223		-	let coeff18 = (pow(monthes18, SCALE18, toBigInt(2), 0, SCALE18, HALFUP) / toBigInt(~~1000~~))
	165	+	let coeff18 = (pow(monthes18, SCALE18, toBigInt(2), 0, SCALE18, HALFUP) / toBigInt(100))
224	166		let gWxAmount = fraction(toBigInt(deltaWxAmount), coeff18, MULT18)
225	167		$Tuple2(nil, makeString(["%d%d", toString(toInt(gWxAmount)), toString(boost)], SEP))
226	168		}

231	173		func wxEmissionStatsREADONLY () = {
232	174		let ONEMULT = toString(MULT8)
233	175		let ONE = "1"
234		-	let factoryContract = readFactoryAddressOrFail()
235		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
236		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
237		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
238		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
239		-	let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
240		-	let passedBlocks = if ((emissionStartBlock > height))
241		-	then 0
242		-	else (height - emissionStartBlock)
243		-	let totalWxReleased = (wxEmissionPerBlock * passedBlocks)
244		-	let totalWxLocked = getIntOrZero(boostingContract, keyBoostingLockParamTotalAmount())
245		-	let locksDurationSumInBlocks = getIntOrZero(boostingContract, keyBoostingStatsLocksDurationSumInBlocks())
246		-	let locksCount = getIntOrZero(boostingContract, keyBoostingStatsLocksCount())
	176	+	let totalWxReleased = 0
	177	+	let totalWxLocked = 0
	178	+	let locksDurationSumInBlocks = 0
	179	+	let locksCount = 0
247	180		$Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
248	181		}
249	182
250	183
251	184
252	185		@Callable(i)
253		-	func ~~lpStatsREADONLY~~ (lpAsset) = {
	186	+	func poolStatsREADONLY (lpAsset) = {
254	187		let factoryAddress = readFactoryAddressOrFail()
255	188		let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
256		-	let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
257		-	then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
258		-	else throw("Couldn't cast Any to List[Any]")
259		-	let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
260		-	then cfg[idxPoolLPAssetId]
261		-	else throw("Couldn't cast Any to String"))
262		-	let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
263		-	then cfg[idxAmtAssetId]
264		-	else throw("Couldn't cast Any to String")
265		-	let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
266		-	then cfg[idxPriceAssetId]
267		-	else throw("Couldn't cast Any to String")
268		-	let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
269		-	then cfg[idxIAmtAssetId]
270		-	else throw("Couldn't cast Any to String")
271		-	let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
272		-	then cfg[idxIPriceAssetId]
273		-	else throw("Couldn't cast Any to String")
274		-	let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
275		-	then cfg[idxAmtAssetDcm]
276		-	else throw("Couldn't cast Any to String"))
277		-	let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
278		-	then cfg[idxPriceAssetDcm]
279		-	else throw("Couldn't cast Any to String"))
	189	+	let cfg = {
	190	+	let @ = invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
	191	+	if ($isInstanceOf(@, "List[Any]"))
	192	+	then @
	193	+	else throw("Couldn't cast Any to List[Any]")
	194	+	}
	195	+	let lpAssetId = fromBase58String({
	196	+	let @ = cfg[idxPoolLPAssetId]
	197	+	if ($isInstanceOf(@, "String"))
	198	+	then @
	199	+	else throw("Couldn't cast Any to String")
	200	+	})
	201	+	let amtAssetId = {
	202	+	let @ = cfg[idxAmtAssetId]
	203	+	if ($isInstanceOf(@, "String"))
	204	+	then @
	205	+	else throw("Couldn't cast Any to String")
	206	+	}
	207	+	let priceAssetId = {
	208	+	let @ = cfg[idxPriceAssetId]
	209	+	if ($isInstanceOf(@, "String"))
	210	+	then @
	211	+	else throw("Couldn't cast Any to String")
	212	+	}
	213	+	let iAmtAssetId = {
	214	+	let @ = cfg[idxIAmtAssetId]
	215	+	if ($isInstanceOf(@, "String"))
	216	+	then @
	217	+	else throw("Couldn't cast Any to String")
	218	+	}
	219	+	let iPriceAssetId = {
	220	+	let @ = cfg[idxIPriceAssetId]
	221	+	if ($isInstanceOf(@, "String"))
	222	+	then @
	223	+	else throw("Couldn't cast Any to String")
	224	+	}
	225	+	let amtAssetDcm = parseIntValue({
	226	+	let @ = cfg[idxAmtAssetDcm]
	227	+	if ($isInstanceOf(@, "String"))
	228	+	then @
	229	+	else throw("Couldn't cast Any to String")
	230	+	})
	231	+	let priceAssetDcm = parseIntValue({
	232	+	let @ = cfg[idxPriceAssetDcm]
	233	+	if ($isInstanceOf(@, "String"))
	234	+	then @
	235	+	else throw("Couldn't cast Any to String")
	236	+	})
280	237		let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
281		-	let accAmtAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil), "Int"))
282		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
283		-	else throw("Couldn't cast Any to Int")
284		-	let accPriceAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil), "Int"))
285		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
286		-	else throw("Couldn't cast Any to Int")
287		-	let pricesList = if ($isInstanceOf(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil), "List[Any]"))
288		-	then invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
289		-	else throw("Couldn't cast Any to List[Any]")
	238	+	let accAmtAssetBalance = {
	239	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
	240	+	if ($isInstanceOf(@, "Int"))
	241	+	then @
	242	+	else throw("Couldn't cast Any to Int")
	243	+	}
	244	+	let accPriceAssetBalance = {
	245	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
	246	+	if ($isInstanceOf(@, "Int"))
	247	+	then @
	248	+	else throw("Couldn't cast Any to Int")
	249	+	}
	250	+	let pricesList = {
	251	+	let @ = invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
	252	+	if ($isInstanceOf(@, "List[Any]"))
	253	+	then @
	254	+	else throw("Couldn't cast Any to List[Any]")
	255	+	}
290	256		let curPrice = 0
291		-	let lpAmtAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil), "Int"))
292		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
293		-	else throw("Couldn't cast Any to Int")
294		-	let lpPriceAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil), "Int"))
295		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
296		-	else throw("Couldn't cast Any to Int")
297		-	let poolWeight = getIntegerValue(factoryAddress, keyFactoryPoolWeight(toString(poolAddress)))
	257	+	let lpAmtAssetShare = {
	258	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
	259	+	if ($isInstanceOf(@, "Int"))
	260	+	then @
	261	+	else throw("Couldn't cast Any to Int")
	262	+	}
	263	+	let lpPriceAssetShare = {
	264	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
	265	+	if ($isInstanceOf(@, "Int"))
	266	+	then @
	267	+	else throw("Couldn't cast Any to Int")
	268	+	}
	269	+	let poolWeight = getIntegerValue(readFactoryAddressOrFail(), keyPoolWeight(toString(poolAddress)))
298	270		$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))
299	271		}
300	272
301	273
302	274
303	275		@Callable(i)
304		-	func gwxUserInfoREADONLY (userAddress) = {
305		-	let factoryContract = readFactoryAddressOrFail()
306		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
307		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
308		-	let gwxUserInfoLIST = if ($isInstanceOf(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil), "List[Any]"))
309		-	then invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil)
310		-	else throw("Couldn't cast Any to List[Any]")
311		-	let gwxAmount = if ($isInstanceOf(gwxUserInfoLIST[0], "Int"))
312		-	then gwxUserInfoLIST[0]
313		-	else throw("Couldn't cast Any to Int")
314		-	$Tuple2(nil, makeString(["%d", toString(gwxAmount)], SEP))
	276	+	func poolEvaluatePutByAmountAssetREADONLY (lpAsset,inAmAssetAmt) = {
	277	+	let factoryAddress = readFactoryAddressOrFail()
	278	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	279	+	let cfg = {
	280	+	let @ = invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
	281	+	if ($isInstanceOf(@, "List[Any]"))
	282	+	then @
	283	+	else throw("Couldn't cast Any to List[Any]")
	284	+	}
	285	+	let lpAssetId = fromBase58String({
	286	+	let @ = cfg[idxPoolLPAssetId]
	287	+	if ($isInstanceOf(@, "String"))
	288	+	then @
	289	+	else throw("Couldn't cast Any to String")
	290	+	})
	291	+	let amAssetIdStr = {
	292	+	let @ = cfg[idxAmtAssetId]
	293	+	if ($isInstanceOf(@, "String"))
	294	+	then @
	295	+	else throw("Couldn't cast Any to String")
	296	+	}
	297	+	let amAssetId = fromBase58String(amAssetIdStr)
	298	+	let prAssetIdStr = {
	299	+	let @ = cfg[idxPriceAssetId]
	300	+	if ($isInstanceOf(@, "String"))
	301	+	then @
	302	+	else throw("Couldn't cast Any to String")
	303	+	}
	304	+	let prAssetId = fromBase58String(prAssetIdStr)
	305	+	let amtAssetDcm = parseIntValue({
	306	+	let @ = cfg[idxAmtAssetDcm]
	307	+	if ($isInstanceOf(@, "String"))
	308	+	then @
	309	+	else throw("Couldn't cast Any to String")
	310	+	})
	311	+	let priceAssetDcm = parseIntValue({
	312	+	let @ = cfg[idxPriceAssetDcm]
	313	+	if ($isInstanceOf(@, "String"))
	314	+	then @
	315	+	else throw("Couldn't cast Any to String")
	316	+	})
	317	+	let poolStatus = {
	318	+	let @ = cfg[idxPoolStatus]
	319	+	if ($isInstanceOf(@, "String"))
	320	+	then @
	321	+	else throw("Couldn't cast Any to String")
	322	+	}
	323	+	let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
	324	+	let accAmtAssetBalance = {
	325	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil)
	326	+	if ($isInstanceOf(@, "Int"))
	327	+	then @
	328	+	else throw("Couldn't cast Any to Int")
	329	+	}
	330	+	let accPriceAssetBalance = {
	331	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil)
	332	+	if ($isInstanceOf(@, "Int"))
	333	+	then @
	334	+	else throw("Couldn't cast Any to Int")
	335	+	}
	336	+	let amtAssetAmtX18 = parseBigIntValue({
	337	+	let @ = invoke(poolAddress, "toX18WrapperREADONLY", [accAmtAssetBalance, amtAssetDcm], nil)
	338	+	if ($isInstanceOf(@, "String"))
	339	+	then @
	340	+	else throw("Couldn't cast Any to String")
	341	+	})
	342	+	let priceAssetAmtX18 = parseBigIntValue({
	343	+	let @ = invoke(poolAddress, "toX18WrapperREADONLY", [accPriceAssetBalance, priceAssetDcm], nil)
	344	+	if ($isInstanceOf(@, "String"))
	345	+	then @
	346	+	else throw("Couldn't cast Any to String")
	347	+	})
	348	+	let curPriceX18 = if ((poolLPBalance == 0))
	349	+	then zeroBigInt
	350	+	else parseBigIntValue({
	351	+	let @ = invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(priceAssetAmtX18), toString(amtAssetAmtX18)], nil)
	352	+	if ($isInstanceOf(@, "String"))
	353	+	then @
	354	+	else throw("Couldn't cast Any to String")
	355	+	})
	356	+	let curPrice = {
	357	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [toString(curPriceX18), MULT8], nil)
	358	+	if ($isInstanceOf(@, "Int"))
	359	+	then @
	360	+	else throw("Couldn't cast Any to Int")
	361	+	}
	362	+	let inAmAssetAmtX18 = parseBigIntValue({
	363	+	let @ = invoke(poolAddress, "toX18WrapperREADONLY", [inAmAssetAmt, amtAssetDcm], nil)
	364	+	if ($isInstanceOf(@, "String"))
	365	+	then @
	366	+	else throw("Couldn't cast Any to String")
	367	+	})
	368	+	let inPrAssetAmtX18 = fraction(inAmAssetAmtX18, curPriceX18, MULT18)
	369	+	let inPrAssetAmt = {
	370	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [toString(inPrAssetAmtX18), priceAssetDcm], nil)
	371	+	if ($isInstanceOf(@, "Int"))
	372	+	then @
	373	+	else throw("Couldn't cast Any to Int")
	374	+	}
	375	+	let res = invoke(poolAddress, "estimatePutOperationWrapperREADONLY", ["", 500000, inAmAssetAmt, amAssetId, inPrAssetAmt, prAssetId, "", true, false], nil)
	376	+	let $t01090111254 = match res {
	377	+	case _ =>
	378	+	if (if ($isInstanceOf($match0._1, "Int"))
	379	+	then if ($isInstanceOf($match0._3, "Int"))
	380	+	then if ($isInstanceOf($match0._4, "Int"))
	381	+	then if ($isInstanceOf($match0._5, "Int"))
	382	+	then $isInstanceOf($match0._6, "Int")
	383	+	else false
	384	+	else false
	385	+	else false
	386	+	else false)
	387	+	then {
	388	+	let calcLpAmt = $match0._1
	389	+	let curPriceCalc = $match0._3
	390	+	let amBalance = $match0._4
	391	+	let prBalance = $match0._5
	392	+	let lpEmission = $match0._6
	393	+	$Tuple5(calcLpAmt, curPriceCalc, amBalance, prBalance, lpEmission)
	394	+	}
	395	+	else throw("Couldn't cast types")
	396	+	}
	397	+	let calcLpAmt = $t01090111254._1
	398	+	let curPriceCalc = $t01090111254._2
	399	+	let amBalance = $t01090111254._3
	400	+	let prBalance = $t01090111254._4
	401	+	let lpEmission = $t01090111254._5
	402	+	$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))
	403	+	}
	404	+
	405	+
	406	+
	407	+	@Callable(i)
	408	+	func poolEvaluatePutByPriceAssetREADONLY (lpAsset,inPrAssetAmt) = {
	409	+	let factoryAddress = readFactoryAddressOrFail()
	410	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	411	+	let cfg = {
	412	+	let @ = invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
	413	+	if ($isInstanceOf(@, "List[Any]"))
	414	+	then @
	415	+	else throw("Couldn't cast Any to List[Any]")

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	+
	14	+	let zeroBigInt = toBigInt(0)
13	15
14	16		let idxPoolAddress = 1
15	17
16	18		let idxPoolStatus = 2
17	19
18	20		let idxPoolLPAssetId = 3
19	21
20	22		let idxAmtAssetId = 4
21	23
22	24		let idxPriceAssetId = 5
23	25
24	26		let idxAmtAssetDcm = 6
25	27
26	28		let idxPriceAssetDcm = 7
27	29
28	30		let idxIAmtAssetId = 8
29	31
30	32		let idxIPriceAssetId = 9
31	33
32	34		let idxLPAssetDcm = 10
33	35
34	36		func getStringOrFail (key) = valueOrErrorMessage(getString(key), (("mandatory this." + key) + " is not defined"))
35	37
36	38
37	39		func getStringByAddressOrFail (address,key) = valueOrErrorMessage(getString(address, key), (((("mandatory " + toString(address)) + ".") + key) + " is not defined"))
38	40
39	41
40	42		func getIntOrZero (address,key) = valueOrElse(getInteger(address, key), 0)
41	43
42	44
43	45		func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), (("mandatory this." + key) + " is not defined"))
44	46
45	47
46	48		func keyFactoryAddress () = "%s%s__config__factoryAddress"
47	49
48	50
49		-	let IdxFactoryCfgStakingDapp = 1
50		-
51		-	let IdxFactoryCfgBoostingDapp = 2
52		-
53		-	let IdxFactoryCfgIdoDapp = 3
54		-
55		-	let IdxFactoryCfgTeamDapp = 4
56		-
57		-	let IdxFactoryCfgEmissionDapp = 5
58		-
59		-	let IdxFactoryCfgRestDapp = 6
60		-
61		-	let IdxFactoryCfgSlippageDapp = 7
62		-
63		-	func keyFactoryCfg () = "%s__factoryConfig"
64		-
65		-
66		-	func keyFactoryLp2AssetsMapping (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
	51	+	func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
67	52
68	53
69	54		func keyFactoryLpList () = "%s__lpTokensList"
70	55
71	56
72		-	func keyFactoryLpAssetToPoolContractAddress (lpAssetStr) = makeString(["%s%s%s", lpAssetStr, "mappings__lpAsset2PoolContract"], SEP)
73		-
74		-
75		-	func keyFactoryPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
	57	+	func keyFactoryCfg () = "%s__factoryConfig"
76	58
77	59
78	60		func readFactoryAddressOrFail () = addressFromStringValue(getStringOrFail(keyFactoryAddress()))
79	61
80	62
81	63		func readLpList () = split(valueOrElse(getString(readFactoryAddressOrFail(), keyFactoryLpList()), ""), SEP)
82	64
83	65
84		-	func readFactoryCfgOrFail (factory) = split(getStringByAddressOrFail(factory, keyFactoryCfg()), SEP)
85		-
86		-
87		-	func getBoostingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgBoostingDapp])
88		-
89		-
90		-	func getEmissionAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgEmissionDapp])
91		-
92		-
93		-	func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[IdxFactoryCfgStakingDapp])
94		-
95		-
96		-	func keyBoostingLockParamTotalAmount () = "%s%s__stats__activeTotalLocked"
97		-
98		-
99		-	func keyBoostingStatsLocksDurationSumInBlocks () = "%s%s__stats__locksDurationSumInBlocks"
100		-
101		-
102		-	func keyBoostingStatsLocksCount () = "%s%s__stats__locksCount"
103		-
104		-
105		-	func keyBoostingStatsUsersCount () = "%s%s__stats__activeUsersCount"
	66	+	func readFactoryCfgOrFail () = split(getStringByAddressOrFail(readFactoryAddressOrFail(), keyFactoryCfg()), SEP)
106	67
107	68
108	69		func keyStakedByUser (userAddressStr,lpAssetIdStr) = makeString(["%s%s%s__staked", userAddressStr, lpAssetIdStr], SEP)
109	70
110	71
111	72		func keyStakedTotal (lpAssetIdStr) = ("%s%s%s__staked__total__" + lpAssetIdStr)
112	73
113	74
114		-	func ~~keyEmissionRatePerBlockCurrent~~ () = "%s%s~~__ratePerBlock__current~~"
	75	+	func keyPoolWeight (contractAddress) = makeString(["%s%s", "poolWeight", contractAddress], SEP)
115	76
116	77
117		-	func ~~keyEmissionRatePerBlockMaxCurrent~~ () = ~~"%s%s__ratePerBlockMax__current"~~
	78	+	func getStakingAddressOrFail (factoryCfg) = addressFromStringValue(factoryCfg[1])
118	79
119	80
120		-	func keyEmissionStartBlock () = "%s%s__emission__startBlock"
121		-
122		-
123		-	func keyEmissionDurationInBlocks () = "%s%s__emission__duration"
124		-
125		-
126		-	func keyEmissionEndBlock () = "%s%s__emission__endBlock"
127		-
128		-
129		-	func internalCurrentRewardRate (factoryContract,stakingContract,emissionContract,lpAssetId) = {
130		-	let poolAddressStr = getStringByAddressOrFail(factoryContract, keyFactoryLpAssetToPoolContractAddress(lpAssetId))
131		-	let poolWeightMult = MULT8
132		-	let poolWeight = getIntegerValue(factoryContract, keyFactoryPoolWeight(poolAddressStr))
133		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
134		-	let wxEmissionPerBlockMax = getIntOrFail(emissionContract, keyEmissionRatePerBlockMaxCurrent())
135		-	let poolWxEmissionPerBlock = fraction(wxEmissionPerBlock, poolWeight, poolWeightMult)
136		-	let poolWxEmissionPerBlockMax = fraction(wxEmissionPerBlockMax, poolWeight, poolWeightMult)
137		-	let maxFactor = (3 * MULT8)
	81	+	func internalCurrentRewardRate (stakingContract,lpAssetId) = {
	82	+	let wxEmissionPerBlock = 0
	83	+	let maxFactor = (1 * MULT8)
138	84		let totalLpStaked = getIntOrZero(stakingContract, keyStakedTotal(lpAssetId))
139		-	[~~poolWxEmissionPerBlock~~, maxFactor, totalLpStaked]
	85	+	[wxEmissionPerBlock, maxFactor, totalLpStaked]
140	86		}
141	87
142	88
143	89		@Callable(i)
144	90		func constructor (factoryAddress) = if ((i.caller != this))
145	91		then throw("not authorized")
146	92		else [StringEntry(keyFactoryAddress(), factoryAddress)]
147	93
148	94
149	95
150	96		@Callable(i)
151	97		func currentRewardRateREADONLY (lpAssetId) = {
152		-	let factoryContract = readFactoryAddressOrFail()
153		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
154		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
155		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
156		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	98	+	let factoryCfgArray = readFactoryCfgOrFail()
	99	+	let stakingContract = getStakingAddressOrFail(factoryCfgArray)
	100	+	let rewardData = internalCurrentRewardRate(stakingContract, lpAssetId)
157	101		let wxEmissionPerBlock = rewardData[0]
158	102		let maxFactor = rewardData[1]
159	103		let totalLpStaked = rewardData[2]
160	104		$Tuple2(nil, makeString(["%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked)], SEP))
161	105		}
162	106
163	107
164	108
165	109		@Callable(i)
166	110		func currentUserRewardRateREADONLY (lpAssetId,userAddress) = {
167		-	let factoryContract = readFactoryAddressOrFail()
168		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
169		-	let stakingContract = getStakingAddressOrFail(factoryCfg)
170		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
171		-	let rewardData = internalCurrentRewardRate(factoryContract, stakingContract, emissionContract, lpAssetId)
	111	+	let factoryCfgArray = readFactoryCfgOrFail()
	112	+	let stakingContract = getStakingAddressOrFail(factoryCfgArray)
	113	+	let rewardData = internalCurrentRewardRate(stakingContract, lpAssetId)
172	114		let wxEmissionPerBlock = rewardData[0]
173	115		let maxFactor = rewardData[1]
174	116		let totalLpStaked = rewardData[2]
175	117		let lpStakedByUser = getIntOrZero(stakingContract, keyStakedByUser(userAddress, lpAssetId))
176	118		let boostingPower = (1 * MULT8)
177		-	$Tuple2(nil, makeString(["~~%d%d~~%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower)], SEP))
	119	+	$Tuple2(nil, makeString(["%d%d%d", toString(wxEmissionPerBlock), toString(maxFactor), toString(totalLpStaked), toString(lpStakedByUser), toString(boostingPower)], SEP))
178	120		}
179	121
180	122
181	123
182	124		@Callable(i)
183	125		func claimedRewardREADONLY (userAddress) = {
184	126		let lpList = readLpList()
185	127		let prefix = "%s%d%d%d%s"
186	128		func claimedRewardByLpAggregator (resultStr,nextLp) = {
187	129		let rand = ((toInt(fromBase58String(nextLp)) % 100000) + (toInt(toBytes(userAddress)) % 100000))
188	130		let absRand = if ((0 > rand))
189	131		then -(rand)
190	132		else rand
191	133		let val = (((absRand % 100) * MULT8) + (absRand * (MULT8 / 100000)))
192		-	let minRewardClaimed = ~~((val / 6) * 2)~~
193		-	let boostRewardClaimed = ~~((val / 6) * 3)~~
194		-	let gFeeClaimed = ~~(val / 6)~~
	134	+	let minRewardClaimed = 0
	135	+	let boostRewardClaimed = 0
	136	+	let gFeeClaimed = 0
195	137		makeString([(prefix + resultStr), nextLp, toString(minRewardClaimed), toString(boostRewardClaimed), toString(gFeeClaimed), "end"], SEP)
196	138		}
197	139
198	140		let result = {
199	141		let $l = lpList
200	142		let $s = size($l)
201	143		let $acc0 = "%s"
202		-	func 1 ($a,$i) = if (($i >= $s))
	144	+	func $f0_1 ($a,$i) = if (($i >= $s))
203	145		then $a
204	146		else claimedRewardByLpAggregator($a, $l[$i])
205	147
206		-	func 2 ($a,$i) = if (($i >= $s))
	148	+	func $f0_2 ($a,$i) = if (($i >= $s))
207	149		then $a
208	150		else throw("List size exceeds 10")
209	151
210		-	2(1(1(1(1(1(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
	152	+	$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)
211	153		}
212	154		$Tuple2(nil, ((result + SEP) + userAddress))
213	155		}
214	156
215	157
216	158
217	159		@Callable(i)
218	160		func calcBoostREADONLY (deltaWxAmount,deltaLockPeriodInBlocks,deltaLpAmount,lpAssetIdOpt,userAddressOpt) = {
219	161		let boost = if ((userAddressOpt != ""))
220	162		then (3 * MULT8)
221	163		else (1 * MULT8)
222	164		let monthes18 = fraction(toBigInt(deltaLockPeriodInBlocks), MULT18, toBigInt((30 * 1440)))
223		-	let coeff18 = (pow(monthes18, SCALE18, toBigInt(2), 0, SCALE18, HALFUP) / toBigInt(~~1000~~))
	165	+	let coeff18 = (pow(monthes18, SCALE18, toBigInt(2), 0, SCALE18, HALFUP) / toBigInt(100))
224	166		let gWxAmount = fraction(toBigInt(deltaWxAmount), coeff18, MULT18)
225	167		$Tuple2(nil, makeString(["%d%d", toString(toInt(gWxAmount)), toString(boost)], SEP))
226	168		}
227	169
228	170
229	171
230	172		@Callable(i)
231	173		func wxEmissionStatsREADONLY () = {
232	174		let ONEMULT = toString(MULT8)
233	175		let ONE = "1"
234		-	let factoryContract = readFactoryAddressOrFail()
235		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
236		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
237		-	let emissionContract = getEmissionAddressOrFail(factoryCfg)
238		-	let wxEmissionPerBlock = getIntOrFail(emissionContract, keyEmissionRatePerBlockCurrent())
239		-	let emissionStartBlock = getIntOrFail(emissionContract, keyEmissionStartBlock())
240		-	let passedBlocks = if ((emissionStartBlock > height))
241		-	then 0
242		-	else (height - emissionStartBlock)
243		-	let totalWxReleased = (wxEmissionPerBlock * passedBlocks)
244		-	let totalWxLocked = getIntOrZero(boostingContract, keyBoostingLockParamTotalAmount())
245		-	let locksDurationSumInBlocks = getIntOrZero(boostingContract, keyBoostingStatsLocksDurationSumInBlocks())
246		-	let locksCount = getIntOrZero(boostingContract, keyBoostingStatsLocksCount())
	176	+	let totalWxReleased = 0
	177	+	let totalWxLocked = 0
	178	+	let locksDurationSumInBlocks = 0
	179	+	let locksCount = 0
247	180		$Tuple2(nil, makeString(["%d%d%d%d", toString(totalWxReleased), toString(totalWxLocked), toString(locksDurationSumInBlocks), toString(locksCount)], SEP))
248	181		}
249	182
250	183
251	184
252	185		@Callable(i)
253		-	func ~~lpStatsREADONLY~~ (lpAsset) = {
	186	+	func poolStatsREADONLY (lpAsset) = {
254	187		let factoryAddress = readFactoryAddressOrFail()
255	188		let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
256		-	let cfg = if ($isInstanceOf(invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil), "List[Any]"))
257		-	then invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
258		-	else throw("Couldn't cast Any to List[Any]")
259		-	let lpAssetId = fromBase58String(if ($isInstanceOf(cfg[idxPoolLPAssetId], "String"))
260		-	then cfg[idxPoolLPAssetId]
261		-	else throw("Couldn't cast Any to String"))
262		-	let amtAssetId = if ($isInstanceOf(cfg[idxAmtAssetId], "String"))
263		-	then cfg[idxAmtAssetId]
264		-	else throw("Couldn't cast Any to String")
265		-	let priceAssetId = if ($isInstanceOf(cfg[idxPriceAssetId], "String"))
266		-	then cfg[idxPriceAssetId]
267		-	else throw("Couldn't cast Any to String")
268		-	let iAmtAssetId = if ($isInstanceOf(cfg[idxIAmtAssetId], "String"))
269		-	then cfg[idxIAmtAssetId]
270		-	else throw("Couldn't cast Any to String")
271		-	let iPriceAssetId = if ($isInstanceOf(cfg[idxIPriceAssetId], "String"))
272		-	then cfg[idxIPriceAssetId]
273		-	else throw("Couldn't cast Any to String")
274		-	let amtAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxAmtAssetDcm], "String"))
275		-	then cfg[idxAmtAssetDcm]
276		-	else throw("Couldn't cast Any to String"))
277		-	let priceAssetDcm = parseIntValue(if ($isInstanceOf(cfg[idxPriceAssetDcm], "String"))
278		-	then cfg[idxPriceAssetDcm]
279		-	else throw("Couldn't cast Any to String"))
	189	+	let cfg = {
	190	+	let @ = invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
	191	+	if ($isInstanceOf(@, "List[Any]"))
	192	+	then @
	193	+	else throw("Couldn't cast Any to List[Any]")
	194	+	}
	195	+	let lpAssetId = fromBase58String({
	196	+	let @ = cfg[idxPoolLPAssetId]
	197	+	if ($isInstanceOf(@, "String"))
	198	+	then @
	199	+	else throw("Couldn't cast Any to String")
	200	+	})
	201	+	let amtAssetId = {
	202	+	let @ = cfg[idxAmtAssetId]
	203	+	if ($isInstanceOf(@, "String"))
	204	+	then @
	205	+	else throw("Couldn't cast Any to String")
	206	+	}
	207	+	let priceAssetId = {
	208	+	let @ = cfg[idxPriceAssetId]
	209	+	if ($isInstanceOf(@, "String"))
	210	+	then @
	211	+	else throw("Couldn't cast Any to String")
	212	+	}
	213	+	let iAmtAssetId = {
	214	+	let @ = cfg[idxIAmtAssetId]
	215	+	if ($isInstanceOf(@, "String"))
	216	+	then @
	217	+	else throw("Couldn't cast Any to String")
	218	+	}
	219	+	let iPriceAssetId = {
	220	+	let @ = cfg[idxIPriceAssetId]
	221	+	if ($isInstanceOf(@, "String"))
	222	+	then @
	223	+	else throw("Couldn't cast Any to String")
	224	+	}
	225	+	let amtAssetDcm = parseIntValue({
	226	+	let @ = cfg[idxAmtAssetDcm]
	227	+	if ($isInstanceOf(@, "String"))
	228	+	then @
	229	+	else throw("Couldn't cast Any to String")
	230	+	})
	231	+	let priceAssetDcm = parseIntValue({
	232	+	let @ = cfg[idxPriceAssetDcm]
	233	+	if ($isInstanceOf(@, "String"))
	234	+	then @
	235	+	else throw("Couldn't cast Any to String")
	236	+	})
280	237		let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
281		-	let accAmtAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil), "Int"))
282		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
283		-	else throw("Couldn't cast Any to Int")
284		-	let accPriceAssetBalance = if ($isInstanceOf(invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil), "Int"))
285		-	then invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
286		-	else throw("Couldn't cast Any to Int")
287		-	let pricesList = if ($isInstanceOf(invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil), "List[Any]"))
288		-	then invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
289		-	else throw("Couldn't cast Any to List[Any]")
	238	+	let accAmtAssetBalance = {
	239	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amtAssetId], nil)
	240	+	if ($isInstanceOf(@, "Int"))
	241	+	then @
	242	+	else throw("Couldn't cast Any to Int")
	243	+	}
	244	+	let accPriceAssetBalance = {
	245	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [priceAssetId], nil)
	246	+	if ($isInstanceOf(@, "Int"))
	247	+	then @
	248	+	else throw("Couldn't cast Any to Int")
	249	+	}
	250	+	let pricesList = {
	251	+	let @ = invoke(poolAddress, "calcPricesWrapperREADONLY", [accAmtAssetBalance, accPriceAssetBalance, poolLPBalance], nil)
	252	+	if ($isInstanceOf(@, "List[Any]"))
	253	+	then @
	254	+	else throw("Couldn't cast Any to List[Any]")
	255	+	}
290	256		let curPrice = 0
291		-	let lpAmtAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil), "Int"))
292		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
293		-	else throw("Couldn't cast Any to Int")
294		-	let lpPriceAssetShare = if ($isInstanceOf(invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil), "Int"))
295		-	then invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
296		-	else throw("Couldn't cast Any to Int")
297		-	let poolWeight = getIntegerValue(factoryAddress, keyFactoryPoolWeight(toString(poolAddress)))
	257	+	let lpAmtAssetShare = {
	258	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[1], MULT8], nil)
	259	+	if ($isInstanceOf(@, "Int"))
	260	+	then @
	261	+	else throw("Couldn't cast Any to Int")
	262	+	}
	263	+	let lpPriceAssetShare = {
	264	+	let @ = invoke(poolAddress, "fromX18WrapperREADONLY", [pricesList[2], MULT8], nil)
	265	+	if ($isInstanceOf(@, "Int"))
	266	+	then @
	267	+	else throw("Couldn't cast Any to Int")
	268	+	}
	269	+	let poolWeight = getIntegerValue(readFactoryAddressOrFail(), keyPoolWeight(toString(poolAddress)))
298	270		$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))
299	271		}
300	272
301	273
302	274
303	275		@Callable(i)
304		-	func gwxUserInfoREADONLY (userAddress) = {
305		-	let factoryContract = readFactoryAddressOrFail()
306		-	let factoryCfg = readFactoryCfgOrFail(factoryContract)
307		-	let boostingContract = getBoostingAddressOrFail(factoryCfg)
308		-	let gwxUserInfoLIST = if ($isInstanceOf(invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil), "List[Any]"))
309		-	then invoke(boostingContract, "gwxUserInfoREADONLY", [userAddress], nil)
310		-	else throw("Couldn't cast Any to List[Any]")
311		-	let gwxAmount = if ($isInstanceOf(gwxUserInfoLIST[0], "Int"))
312		-	then gwxUserInfoLIST[0]
313		-	else throw("Couldn't cast Any to Int")
314		-	$Tuple2(nil, makeString(["%d", toString(gwxAmount)], SEP))
	276	+	func poolEvaluatePutByAmountAssetREADONLY (lpAsset,inAmAssetAmt) = {
	277	+	let factoryAddress = readFactoryAddressOrFail()
	278	+	let poolAddress = addressFromStringValue(getStringByAddressOrFail(factoryAddress, keyFactoryLpAssetToPoolContractAddress(lpAsset)))
	279	+	let cfg = {
	280	+	let @ = invoke(poolAddress, "getPoolConfigWrapperREADONLY", nil, nil)
	281	+	if ($isInstanceOf(@, "List[Any]"))
	282	+	then @
	283	+	else throw("Couldn't cast Any to List[Any]")
	284	+	}
	285	+	let lpAssetId = fromBase58String({
	286	+	let @ = cfg[idxPoolLPAssetId]
	287	+	if ($isInstanceOf(@, "String"))
	288	+	then @
	289	+	else throw("Couldn't cast Any to String")
	290	+	})
	291	+	let amAssetIdStr = {
	292	+	let @ = cfg[idxAmtAssetId]
	293	+	if ($isInstanceOf(@, "String"))
	294	+	then @
	295	+	else throw("Couldn't cast Any to String")
	296	+	}
	297	+	let amAssetId = fromBase58String(amAssetIdStr)
	298	+	let prAssetIdStr = {
	299	+	let @ = cfg[idxPriceAssetId]
	300	+	if ($isInstanceOf(@, "String"))
	301	+	then @
	302	+	else throw("Couldn't cast Any to String")
	303	+	}
	304	+	let prAssetId = fromBase58String(prAssetIdStr)
	305	+	let amtAssetDcm = parseIntValue({
	306	+	let @ = cfg[idxAmtAssetDcm]
	307	+	if ($isInstanceOf(@, "String"))
	308	+	then @
	309	+	else throw("Couldn't cast Any to String")
	310	+	})
	311	+	let priceAssetDcm = parseIntValue({
	312	+	let @ = cfg[idxPriceAssetDcm]
	313	+	if ($isInstanceOf(@, "String"))
	314	+	then @
	315	+	else throw("Couldn't cast Any to String")
	316	+	})
	317	+	let poolStatus = {
	318	+	let @ = cfg[idxPoolStatus]
	319	+	if ($isInstanceOf(@, "String"))
	320	+	then @
	321	+	else throw("Couldn't cast Any to String")
	322	+	}
	323	+	let poolLPBalance = valueOrErrorMessage(assetInfo(lpAssetId), (("Asset " + toBase58String(lpAssetId)) + " doesn't exist")).quantity
	324	+	let accAmtAssetBalance = {
	325	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [amAssetIdStr], nil)
	326	+	if ($isInstanceOf(@, "Int"))
	327	+	then @
	328	+	else throw("Couldn't cast Any to Int")
	329	+	}
	330	+	let accPriceAssetBalance = {
	331	+	let @ = invoke(poolAddress, "getAccBalanceWrapperREADONLY", [prAssetIdStr], nil)
	332	+	if ($isInstanceOf(@, "Int"))
	333	+	then @
	334	+	else throw("Couldn't cast Any to Int")
	335	+	}
	336	+	let amtAssetAmtX18 = parseBigIntValue({
	337	+	let @ = invoke(poolAddress, "toX18WrapperREADONLY", [accAmtAssetBalance, amtAssetDcm], nil)
	338	+	if ($isInstanceOf(@, "String"))
	339	+	then @
	340	+	else throw("Couldn't cast Any to String")
	341	+	})
	342	+	let priceAssetAmtX18 = parseBigIntValue({
	343	+	let @ = invoke(poolAddress, "toX18WrapperREADONLY", [accPriceAssetBalance, priceAssetDcm], nil)
	344	+	if ($isInstanceOf(@, "String"))
	345	+	then @
	346	+	else throw("Couldn't cast Any to String")
	347	+	})
	348	+	let curPriceX18 = if ((poolLPBalance == 0))
	349	+	then zeroBigInt
	350	+	else parseBigIntValue({
	351	+	let @ = invoke(poolAddress, "calcPriceBigIntWrapperREADONLY", [toString(priceAssetAmtX18), toString(amtAssetAmtX18)], nil)
	352	+	if ($isInstanceOf(@, "String"))

github/deemru/w8io/026f985 
71.54 ms ◑