w8 · tx · AgT···AcJ

tx · AgTk28JNYbzDYeYd5gSX3nLK12yBRcwzAM4ByMDBiAcJ

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.08 00:14 [1388294] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AgTk28JNYbzDYeYd5gSX3nLK12yBRcwzAM4ByMDBiAcJ",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612732453820,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "62Hzr9zPJYNsYqFVKuKcGh7d8gvJM1Vw5SfSsSVwyCAt6u1dAg49oHw3mTFqL2XAS6a9kyP824PYnJreXPEsY8qJ"
    ],
    "script": "base64:AAIEAAAAAAAAAAwIAhIAEgASABIAEgAAAAARAAAAAAFlAAAAAnjmOQhrAAAAAA5rd290YXJvd25vd2FnaQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOa3dvdGFyb3dub3dhZ2kAAAAABGJhemEJAABoAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAABIAAAAAB2VuYWJsZWQJAAQaAAAAAgUAAAAEdGhpcwIAAAAHZW5hYmxlZAAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAACmJhbGFuc1VTRE4JAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAAAAAAZAAAAAAKYmFsYW5zVVNEVAkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgkAAGkAAAACBQAAAAFlAAAAAAAAACcQAAAAAAAAAAAIBQAAAAF4AAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAAVleHAxMgAAAAEAAAABeAkAAGsAAAADCQAAbAAAAAYJAABpAAAAAgUAAAABZQAAAAAAAAAnEAAAAAAAAAAACAUAAAABeAAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgAAAAAAAAAAZAAAAAAAAAAAAQEAAAAIbW5vemVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAAAF9eEAAQAAAA1tbm96ZW5pZTEyZG84AAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAUAAAABeQAAAADo1KUQAAEAAAAJZHppZWxlbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAAAAAAABfXhAAUAAAABeQEAAAALZHppZWxlbmllMTIAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAAD0JACQAAaQAAAAIFAAAAAXkAAAAAAAAPQkABAAAABkhhbGxleQAAAAIAAAABeAAAAAF3BAAAAAZ3VGltZXMJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAABdwkBAAAAA2V4cAAAAAEFAAAAAXcFAAAAAXgEAAAADXdQbHVzT25lVGltZXMJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAABfXhAAkBAAAAA2V4cAAAAAEFAAAAAXcDCQEAAAACIT0AAAACBQAAAAZ3VGltZXMAAAAAAAAAAAAJAABlAAAAAgUAAAABdwkBAAAACWR6aWVsZW5pZQAAAAIFAAAABndUaW1lcwkAAGUAAAACBQAAAA13UGx1c09uZVRpbWVzCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGQAAAACBQAAAAF3AAAAAAAL68IABQAAAAZ3VGltZXMJAABkAAAAAgkAAGgAAAACAAAAAAAAAAACBQAAAAF3AAAAAAAL68IABQAAAAF3AQAAABFjb250aW51ZWRmcmFjdGlvbgAAAAEAAAABeAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAAC+vCAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAABQkAAGQAAAACAAAAAAAR4aMACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAARCQAAZAAAAAIAAAAAADuaygAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAIUJAABkAAAAAgAAAAAAZVPxAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAHhwkAAGQAAAACAAAAAABxP7MACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAz0F3AAAACJZ07/cAAQAAAAlMYW1iZXJ0VzAAAAABAAAAAXgJAQAAAAZIYWxsZXkAAAACBQAAAAF4CQEAAAARY29udGludWVkZnJhY3Rpb24AAAABBQAAAAF4AAAABQAAAAFpAQAAABBVU0RUbmFVU0RObmFVU0RUAAAAAAQAAAAGb3BsYXRhCQAAawAAAAMICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAABAAAAAAAAAAnEAQAAAAMa3dvdGF3eW1pYW55CQAAawAAAAMJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAAZvcGxhdGEAAAAAAAAAAGQAAAAAAAAAAAEDCQAAAAAAAAIFAAAAB2VuYWJsZWQAAAAAAAAAAAEDAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgYJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oEAAAABmJhbGFucwMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84FAAAACmJhbGFuc1VTRFQFAAAACmJhbGFuc1VTRE4EAAAABmFzc2V0QQMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84CAAAALERMNjd4WHNOVjQyR2lSVVkxWE1UWE55TENzNDJnbkVMOGppelBMQmJyYjhkAgAAACtjR2ZBdjFzN054R1dMOTEzd1IyTHA5eUZTWTdEcmtXaXA2WVBRR0pHYzZ5BAAAAAZhc3NldEIDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAgAAACtjR2ZBdjFzN054R1dMOTEzd1IyTHA5eUZTWTdEcmtXaXA2WVBRR0pHYzZ5AgAAACxETDY3eFhzTlY0MkdpUlVZMVhNVFhOeUxDczQyZ25FTDhqaXpQTEJicmI4ZAMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAAZiYWxhbnMDCQAAZwAAAAIFAAAABmJhbGFucwUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAEFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAAZiYWxhbnMEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAABmJhbGFucwUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAACBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAwUAAAADbmlsCQAAAgAAAAECAAAAFU5pZW9ic8WCdWdpd2FueSBhc3NldAkAAAIAAAABAgAAAB9Lb250cmFrdCB0eW1jemFzb3dvIHd5xYLEhWN6b255AAAAAWkBAAAADklud2VzdHljamFVU0ROAAAAAAMJAQAAAAIhPQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAAAgAAAAECAAAAKkRvIHRlaiBmdW5rY2ppIG1vemVzeiB3cMWCYWNhxIcgdHlsa28gVVNETgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAQAAAACYjEDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAACYjIDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAAKYmFsYW5zVVNEVAQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAABkAAAAAgAAAAAAAFTFYwkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgAAAAAABaEbnAQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJXMAUAAAACYjIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAmIxAAAAAAAFoRucBAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABkAAAAAgkAAGUAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAAlcwBQAAAAJXMAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAABYQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAATbm93eXBvemlvbXJvd25vd2FnaQkABEwAAAACCQEAAAAHUmVpc3N1ZQAAAAMBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwUAAAADbmlsAAAAAWkBAAAADklud2VzdHljamFVU0RUAAAAAAMJAQAAAAIhPQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAAAgAAAAECAAAAKkRvIHRlaiBmdW5rY2ppIG1vemVzeiB3cMWCYWNhxIcgdHlsa28gVVNEVAQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAQAAAACYjEDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0ROBQAAAApiYWxhbnNVU0ROCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAACYjIDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0ROCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAAKYmFsYW5zVVNETgQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAABkAAAAAgAAAAAAAFTFYwkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgAAAAAABaEbnAQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJXMAUAAAACYjIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAmIxAAAAAAAFoRucBAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABkAAAAAgkAAGUAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAAAAAFpAQAAAAtXeXBsYXRhVVNETgAAAAADCQEAAAACIT0AAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAAIAAAABAgAAAB1Nb3plc3ogd3DFgmFjaWMgdHlsa28gcHJvdG9uYQQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAAmExBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAhub3dhYmF6YQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNETgkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAIbm93YWJhemEFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAEQnVybgAAAAIBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAAA25pbAAAAAFpAQAAAAtXeXBsYXRhVVNEVAAAAAADCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBAAAAAVrd290YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQEAAAACG5vd2FiYXphCQAAZQAAAAIFAAAABGJhemEJAABoAAAAAgUAAAAFa3dvdGEAAAAAAAAAAAkEAAAAEm5vd2Frd290YXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgMJAABmAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAhub3dhYmF6YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAAAWEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwEAAAAAWsJAABlAAAAAgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIJAABlAAAAAgUAAAAKbm93eXBvemlvbQUAAAAIbm93YWJhemEFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAEQnVybgAAAAIBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADQFAAAAA25pbAkAAAIAAAABAgAAAB1Nb3plc3ogd3DFgmFjaWMgdHlsa28gcHJvdG9uYQAAAABCdKSB",
    "height": 1388294,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7dmSDVANQQujZSspsDbeVG8WCbrBac58fuC72VqNj6n9
Next: 66jE4HsCUwhAousskU2ThVZGkHtZe3z52r2jk9noiwbM

Diff: 
Old New Differences
74 74                          then {
75 75                              let nowypoziom = (poziom + kwotawymiany)
76 76                              let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
77 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
77 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
78 78                              }
79 79                          else {
80 80                              let czesc1 = (kwotarownowagi - balans)
81 81                              let nowypoziom = (((balans + kwotawymiany) + baza) - kwotarownowagi)
82 82                              let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
83 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
83 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
84 84                              }
85 85                      else {
86 86                          let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
87 87                          let nowypoziom = (poziom - wyplata)
88 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
88 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
89 89                          }
90 90                  }
91 91              else throw("Nieobsługiwany asset")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let e = 2718281828459
5 5  
6 6  let kwotarownowagi = getIntegerValue(this, "kwotarownowagi")
7 7  
8 8  let baza = (kwotarownowagi * 18)
9 9  
10 10  let enabled = getInteger(this, "enabled")
11 11  
12 12  let poziom = getIntegerValue(this, "Poziom")
13 13  
14 14  let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
15 15  
16 16  let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
17 17  
18 18  func ln (x) = log(x, 8, e, 8, 8, DOWN)
19 19  
20 20  
21 21  func exp (x) = pow((e / 10000), 8, x, 8, 8, DOWN)
22 22  
23 23  
24 24  func exp12 (x) = fraction(pow((e / 10000), 8, x, 8, 8, DOWN), 100, 1)
25 25  
26 26  
27 27  func mnozenie (x,y) = fraction(x, y, 100000000)
28 28  
29 29  
30 30  func mnozenie12do8 (x,y) = fraction(x, y, 1000000000000)
31 31  
32 32  
33 33  func dzielenie (x,y) = fraction(x, 100000000, y)
34 34  
35 35  
36 36  func dzielenie12 (x,y) = fraction(x, 1000000, (y / 1000000))
37 37  
38 38  
39 39  func Halley (x,w) = {
40 40      let wTimes = (mnozenie(w, exp(w)) - x)
41 41      let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
42 42      if ((wTimes != 0))
43 43          then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
44 44          else w
45 45      }
46 46  
47 47  
48 48  func continuedfraction (x) = dzielenie(x, (100000000 + dzielenie(x, (100000000 + dzielenie(x, (200000000 + dzielenie((x * 5), (300000000 + dzielenie((x * 17), (1000000000 + dzielenie((x * 133), (1700000000 + dzielenie((x * 1927), (1900000000 + dzielenie((x * 13582711), 9442300000000)))))))))))))))
49 49  
50 50  
51 51  func LambertW0 (x) = Halley(x, continuedfraction(x))
52 52  
53 53  
54 54  @Callable(i)
55 55  func USDTnaUSDNnaUSDT () = {
56 56      let oplata = fraction(i.payments[0].amount, 4, 10000)
57 57      let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
58 58      if ((enabled == 1))
59 59          then if (if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
60 60              then true
61 61              else (i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
62 62              then {
63 63                  let balans = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
64 64                      then balansUSDT
65 65                      else balansUSDN
66 66                  let assetA = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
67 67                      then "DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d"
68 68                      else "cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y"
69 69                  let assetB = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
70 70                      then "cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y"
71 71                      else "DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d"
72 72                  if ((kwotawymiany > (kwotarownowagi - balans)))
73 73                      then if ((balans >= kwotarownowagi))
74 74                          then {
75 75                              let nowypoziom = (poziom + kwotawymiany)
76 76                              let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
77 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
77 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
78 78                              }
79 79                          else {
80 80                              let czesc1 = (kwotarownowagi - balans)
81 81                              let nowypoziom = (((balans + kwotawymiany) + baza) - kwotarownowagi)
82 82                              let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
83 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
83 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
84 84                              }
85 85                      else {
86 86                          let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
87 87                          let nowypoziom = (poziom - wyplata)
88 - [ScriptTransfer(i.caller, (wyplata / 100), toBytes(assetA)), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, toBytes(assetB)), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
88 + [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
89 89                          }
90 90                  }
91 91              else throw("Nieobsługiwany asset")
92 92          else throw("Kontrakt tymczasowo wyłączony")
93 93      }
94 94  
95 95  
96 96  
97 97  @Callable(i)
98 98  func InwestycjaUSDN () = if ((i.payments[0].assetId != base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
99 99      then throw("Do tej funkcji mozesz wpłacać tylko USDN")
100 100      else {
101 101          let wplata = (i.payments[0].amount * 100)
102 102          let b1 = if (((balansUSDN + wplata) > balansUSDT))
103 103              then balansUSDT
104 104              else (balansUSDN + wplata)
105 105          let b2 = if (((balansUSDN + wplata) > balansUSDT))
106 106              then (balansUSDN + wplata)
107 107              else balansUSDT
108 108          let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
109 109          let W0 = LambertW0(a)
110 110          let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
111 111          let wyplata = ((nowabaza - baza) / 9)
112 112          let nowypoziomrownowagi = (nowabaza / 18)
113 113          let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
114 114  [IntegerEntry("W0", W0), IntegerEntry("a", a), IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
115 115          }
116 116  
117 117  
118 118  
119 119  @Callable(i)
120 120  func InwestycjaUSDT () = if ((i.payments[0].assetId != base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
121 121      then throw("Do tej funkcji mozesz wpłacać tylko USDT")
122 122      else {
123 123          let wplata = (i.payments[0].amount * 100)
124 124          let b1 = if (((balansUSDT + wplata) > balansUSDN))
125 125              then balansUSDN
126 126              else (balansUSDT + wplata)
127 127          let b2 = if (((balansUSDT + wplata) > balansUSDN))
128 128              then (balansUSDT + wplata)
129 129              else balansUSDN
130 130          let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
131 131          let W0 = LambertW0(a)
132 132          let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
133 133          let wyplata = ((nowabaza - baza) / 9)
134 134          let nowypoziomrownowagi = (nowabaza / 18)
135 135          let nowypoziom = (((balansUSDT + wplata) - nowypoziomrownowagi) + nowabaza)
136 136  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
137 137          }
138 138  
139 139  
140 140  
141 141  @Callable(i)
142 142  func WyplataUSDN () = if ((i.payments[0].assetId != base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
143 143      then throw("Mozesz wpłacic tylko protona")
144 144      else {
145 145          let kwota = (i.payments[0].amount * 100)
146 146          let nowabaza = (baza - (kwota * 9))
147 147          let nowakwotarownowagi = (nowabaza / 18)
148 148          if ((balansUSDT > nowakwotarownowagi))
149 149              then {
150 150                  let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
151 151                  let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
152 152                  let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
153 153  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("a1", a), IntegerEntry("nowabaza", nowabaza), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
154 154                  }
155 155              else {
156 156                  let k = (nowakwotarownowagi - balansUSDT)
157 157                  let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
158 158                  let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
159 159  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("nowabaza", nowabaza), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
160 160                  }
161 161          }
162 162  
163 163  
164 164  
165 165  @Callable(i)
166 166  func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
167 167      then {
168 168          let kwota = (i.payments[0].amount * 100)
169 169          let nowabaza = (baza - (kwota * 9))
170 170          let nowakwotarownowagi = (nowabaza / 18)
171 171          if ((balansUSDN > nowakwotarownowagi))
172 172              then {
173 173                  let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
174 174                  let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
175 175                  let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
176 176  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
177 177                  }
178 178              else {
179 179                  let k = (nowakwotarownowagi - balansUSDN)
180 180                  let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
181 181                  let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
182 182  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
183 183                  }
184 184          }
185 185      else throw("Mozesz wpłacic tylko protona")
186 186  
187 187

Old	New		Differences
74	74		then {
75	75		let nowypoziom = (poziom + kwotawymiany)
76	76		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
77		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
	77	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
78	78		}
79	79		else {
80	80		let czesc1 = (kwotarownowagi - balans)
81	81		let nowypoziom = (((balans + kwotawymiany) + baza) - kwotarownowagi)
82	82		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
83		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
	83	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
84	84		}
85	85		else {
86	86		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
87	87		let nowypoziom = (poziom - wyplata)
88		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
	88	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
89	89		}
90	90		}
91	91		else throw("Nieobsługiwany asset")

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let e = 2718281828459
5	5
6	6		let kwotarownowagi = getIntegerValue(this, "kwotarownowagi")
7	7
8	8		let baza = (kwotarownowagi * 18)
9	9
10	10		let enabled = getInteger(this, "enabled")
11	11
12	12		let poziom = getIntegerValue(this, "Poziom")
13	13
14	14		let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
15	15
16	16		let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
17	17
18	18		func ln (x) = log(x, 8, e, 8, 8, DOWN)
19	19
20	20
21	21		func exp (x) = pow((e / 10000), 8, x, 8, 8, DOWN)
22	22
23	23
24	24		func exp12 (x) = fraction(pow((e / 10000), 8, x, 8, 8, DOWN), 100, 1)
25	25
26	26
27	27		func mnozenie (x,y) = fraction(x, y, 100000000)
28	28
29	29
30	30		func mnozenie12do8 (x,y) = fraction(x, y, 1000000000000)
31	31
32	32
33	33		func dzielenie (x,y) = fraction(x, 100000000, y)
34	34
35	35
36	36		func dzielenie12 (x,y) = fraction(x, 1000000, (y / 1000000))
37	37
38	38
39	39		func Halley (x,w) = {
40	40		let wTimes = (mnozenie(w, exp(w)) - x)
41	41		let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
42	42		if ((wTimes != 0))
43	43		then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
44	44		else w
45	45		}
46	46
47	47
48	48		func continuedfraction (x) = dzielenie(x, (100000000 + dzielenie(x, (100000000 + dzielenie(x, (200000000 + dzielenie((x * 5), (300000000 + dzielenie((x * 17), (1000000000 + dzielenie((x * 133), (1700000000 + dzielenie((x * 1927), (1900000000 + dzielenie((x * 13582711), 9442300000000)))))))))))))))
49	49
50	50
51	51		func LambertW0 (x) = Halley(x, continuedfraction(x))
52	52
53	53
54	54		@Callable(i)
55	55		func USDTnaUSDNnaUSDT () = {
56	56		let oplata = fraction(i.payments[0].amount, 4, 10000)
57	57		let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
58	58		if ((enabled == 1))
59	59		then if (if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
60	60		then true
61	61		else (i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
62	62		then {
63	63		let balans = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
64	64		then balansUSDT
65	65		else balansUSDN
66	66		let assetA = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
67	67		then "DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d"
68	68		else "cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y"
69	69		let assetB = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
70	70		then "cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y"
71	71		else "DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d"
72	72		if ((kwotawymiany > (kwotarownowagi - balans)))
73	73		then if ((balans >= kwotarownowagi))
74	74		then {
75	75		let nowypoziom = (poziom + kwotawymiany)
76	76		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
77		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
	77	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
78	78		}
79	79		else {
80	80		let czesc1 = (kwotarownowagi - balans)
81	81		let nowypoziom = (((balans + kwotawymiany) + baza) - kwotarownowagi)
82	82		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
83		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
	83	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
84	84		}
85	85		else {
86	86		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
87	87		let nowypoziom = (poziom - wyplata)
88		-	[ScriptTransfer(i.caller, (wyplata / 100), ~~toBytes(assetA)~~), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, ~~toBytes(assetB)~~), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
	88	+	[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
89	89		}
90	90		}
91	91		else throw("Nieobsługiwany asset")
92	92		else throw("Kontrakt tymczasowo wyłączony")
93	93		}
94	94
95	95
96	96
97	97		@Callable(i)
98	98		func InwestycjaUSDN () = if ((i.payments[0].assetId != base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
99	99		then throw("Do tej funkcji mozesz wpłacać tylko USDN")
100	100		else {
101	101		let wplata = (i.payments[0].amount * 100)
102	102		let b1 = if (((balansUSDN + wplata) > balansUSDT))
103	103		then balansUSDT
104	104		else (balansUSDN + wplata)
105	105		let b2 = if (((balansUSDN + wplata) > balansUSDT))
106	106		then (balansUSDN + wplata)
107	107		else balansUSDT
108	108		let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
109	109		let W0 = LambertW0(a)
110	110		let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
111	111		let wyplata = ((nowabaza - baza) / 9)
112	112		let nowypoziomrownowagi = (nowabaza / 18)
113	113		let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
114	114		[IntegerEntry("W0", W0), IntegerEntry("a", a), IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
115	115		}
116	116
117	117
118	118
119	119		@Callable(i)
120	120		func InwestycjaUSDT () = if ((i.payments[0].assetId != base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
121	121		then throw("Do tej funkcji mozesz wpłacać tylko USDT")
122	122		else {
123	123		let wplata = (i.payments[0].amount * 100)
124	124		let b1 = if (((balansUSDT + wplata) > balansUSDN))
125	125		then balansUSDN
126	126		else (balansUSDT + wplata)
127	127		let b2 = if (((balansUSDT + wplata) > balansUSDN))
128	128		then (balansUSDT + wplata)
129	129		else balansUSDN
130	130		let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
131	131		let W0 = LambertW0(a)
132	132		let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
133	133		let wyplata = ((nowabaza - baza) / 9)
134	134		let nowypoziomrownowagi = (nowabaza / 18)
135	135		let nowypoziom = (((balansUSDT + wplata) - nowypoziomrownowagi) + nowabaza)
136	136		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
137	137		}
138	138
139	139
140	140
141	141		@Callable(i)
142	142		func WyplataUSDN () = if ((i.payments[0].assetId != base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
143	143		then throw("Mozesz wpłacic tylko protona")
144	144		else {
145	145		let kwota = (i.payments[0].amount * 100)
146	146		let nowabaza = (baza - (kwota * 9))
147	147		let nowakwotarownowagi = (nowabaza / 18)
148	148		if ((balansUSDT > nowakwotarownowagi))
149	149		then {
150	150		let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
151	151		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
152	152		let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
153	153		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("a1", a), IntegerEntry("nowabaza", nowabaza), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
154	154		}
155	155		else {
156	156		let k = (nowakwotarownowagi - balansUSDT)
157	157		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
158	158		let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
159	159		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("nowabaza", nowabaza), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
160	160		}
161	161		}
162	162
163	163
164	164
165	165		@Callable(i)
166	166		func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
167	167		then {
168	168		let kwota = (i.payments[0].amount * 100)
169	169		let nowabaza = (baza - (kwota * 9))
170	170		let nowakwotarownowagi = (nowabaza / 18)
171	171		if ((balansUSDN > nowakwotarownowagi))
172	172		then {
173	173		let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
174	174		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
175	175		let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
176	176		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
177	177		}
178	178		else {
179	179		let k = (nowakwotarownowagi - balansUSDN)
180	180		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
181	181		let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
182	182		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
183	183		}
184	184		}
185	185		else throw("Mozesz wpłacic tylko protona")
186	186
187	187

github/deemru/w8io/169f3d6 
44.81 ms ◑