tx · Br8njq58gLuxP2tacNbhN8HAEQVsFCN5VUdpfakT5H2k

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.01 21:04 [1379443] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{ "type": 13, "id": "Br8njq58gLuxP2tacNbhN8HAEQVsFCN5VUdpfakT5H2k", "fee": 5000000, "feeAssetId": null, "timestamp": 1612202773079, "version": 2, "chainId": 84, "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t", "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf", "proofs": [ "21MhSnt9ZuwAzhVofp7XmH8RYvxcPdohMXW1aBtUcb5uLx6RKGbBKv2Cyc7f4pxTfAK9Pu6f8xyCN3WiH6RKgrAU" ], "script": "base64:AAIEAAAAAAAAAAwIAhIAEgASABIAEgAAAAAOAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOa3dvdGFyb3dub3dhZ2kAAAAABGJhemEJAABoAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAABIAAAAAB2VuYWJsZWQJAAQaAAAAAgUAAAAEdGhpcwIAAAAHZW5hYmxlZAAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAACmJhbGFuc1VTRE4JAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAAAAAAZAAAAAAKYmFsYW5zVVNEVAkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgUAAAABZQAAAAAAAAAACAUAAAABeAAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAAIbW5vemVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAAAF9eEAAQAAAAlkemllbGVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAF9eEABQAAAAF5AQAAAAZIYWxsZXkAAAACAAAAAXgAAAABdwQAAAAGd1RpbWVzCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAXcJAQAAAANleHAAAAABBQAAAAF3BQAAAAF4BAAAAA13UGx1c09uZVRpbWVzCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAX14QAJAQAAAANleHAAAAABBQAAAAF3AwkBAAAAAiE9AAAAAgUAAAAGd1RpbWVzAAAAAAAAAAAACQAAZQAAAAIFAAAAAXcJAQAAAAlkemllbGVuaWUAAAACBQAAAAZ3VGltZXMJAABlAAAAAgUAAAANd1BsdXNPbmVUaW1lcwkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAAC+vCAAUAAAAGd1RpbWVzCQAAZAAAAAIJAABoAAAAAgAAAAAAAAAAAgUAAAABdwAAAAAAC+vCAAUAAAABdwEAAAARY29udGludWVkZnJhY3Rpb24AAAABAAAAAXgJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAvrwgAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAAUJAABkAAAAAgAAAAAAEeGjAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAEQkAAGQAAAACAAAAAAA7msoACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAACFCQAAZAAAAAIAAAAAAGVT8QAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAB4cJAABkAAAAAgAAAAAAcT+zAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAM9BdwAAAAiWdO/3AAEAAAAJTGFtYmVydFcwAAAAAQAAAAF4CQEAAAAGSGFsbGV5AAAAAgUAAAABeAkBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQUAAAABeAAAAAUAAAABaQEAAAAQVVNEVG5hVVNETm5hVVNEVAAAAAAEAAAABm9wbGF0YQkAAGsAAAADCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAAQAAAAAAAAAJxAEAAAADGt3b3Rhd3ltaWFueQkAAGsAAAADCQAAZQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAAGb3BsYXRhAAAAAAAAAABkAAAAAAAAAAABAwkAAAAAAAACBQAAAAdlbmFibGVkAAAAAAAAAAABAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUAwkAAGcAAAACBQAAAApiYWxhbnNVU0RUBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAQUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAgUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAMFAAAAA25pbAMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oDCQAAZgAAAAIFAAAADGt3b3Rhd3ltaWFueQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgMJAABnAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAsFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAABUFAAAAA25pbAQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAABnBvemlvbQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAfBQAAAANuaWwJAAACAAAAAQIAAAAVTmllb2JzxYJ1Z2l3YW55IGFzc2V0CQAAAgAAAAECAAAAH0tvbnRyYWt0IHR5bWN6YXNvd28gd3nFgsSFY3pvbnkAAAABaQEAAAAOSW53ZXN0eWNqYVVTRE4AAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRFQEAAAAAmIxBQAAAApiYWxhbnNVU0RUBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRFQEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRE4AAAABaQEAAAAOSW53ZXN0eWNqYVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4EAAAAAmIxBQAAAApiYWxhbnNVU0ROBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAGd3BsYXRhBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRE4EAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRFQAAAABaQEAAAALV3lwbGF0YVVTRE4AAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNETgkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwJAAACAAAAAQIAAAAdTW96ZXN6IHdwxYJhY2ljIHR5bGtvIHByb3RvbmEAAAABaQEAAAALV3lwbGF0YVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAA0BQAAAANuaWwJAAACAAAAAQIAAAAdTW96ZXN6IHdwxYJhY2ljIHR5bGtvIHByb3RvbmEAAAAAIV0uYQ==", "height": 1379443, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 7Zh42pdGZ7Ku4c68nfn35oeSgQ42sHY8yo1twkP4CJvw Next: 8Hb5kpFWt3PRjKdebogYbQB3oyAs5ymYvLJaS2uzxqW5 Diff:
OldNewDifferences
9292
9393
9494 @Callable(i)
95-func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
95+func InwestycjaUSDN () = if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
9696 then {
97- let b1 = balansUSDT
98- let b2 = (balansUSDN + wplata)
99- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
100- let W0 = LambertW0(a)
101- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
102- let wyplata = ((nowabaza - baza) / 9)
103- let nowypoziomrownowagi = (nowabaza / 18)
104- let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
105-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
97+ let wplata = (i.payments[0].amount * 100)
98+ if (((balansUSDN + wplata) > balansUSDT))
99+ then {
100+ let b1 = balansUSDT
101+ let b2 = (balansUSDN + wplata)
102+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
103+ let W0 = LambertW0(a)
104+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
105+ let wyplata = ((nowabaza - baza) / 9)
106+ let nowypoziomrownowagi = (nowabaza / 18)
107+ let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
108+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
109+ }
110+ else {
111+ let b1 = (balansUSDN + wplata)
112+ let b2 = balansUSDT
113+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
114+ let W0 = LambertW0(a)
115+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
116+ let wyplata = ((nowabaza - baza) / 9)
117+ let nowypoziomrownowagi = (nowabaza / 18)
118+ let nowypoziom = (balansUSDT - nowypoziomrownowagi)
119+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
120+ }
106121 }
107- else {
108- let b1 = (balansUSDN + wplata)
109- let b2 = balansUSDT
110- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
111- let W0 = LambertW0(a)
112- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
113- let wyplata = ((nowabaza - baza) / 9)
114- let nowypoziomrownowagi = (nowabaza / 18)
115- let nowypoziom = (balansUSDT - nowypoziomrownowagi)
116-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
117- }
122+ else throw("Do tej funkcji mozesz wpłacać tylko USDN")
118123
119124
120125
121126 @Callable(i)
122-func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
127+func InwestycjaUSDT () = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
123128 then {
124- let b1 = balansUSDN
125- let b2 = (balansUSDT + wplata)
126- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
127- let W0 = LambertW0(a)
128- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
129- let wyplata = ((nowabaza - baza) / 9)
130- let nowypoziomrownowagi = (nowabaza / 18)
131- let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
132-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
129+ let wplata = (i.payments[0].amount * 100)
130+ if (((balansUSDT + wplata) > balansUSDN))
131+ then {
132+ let b1 = balansUSDN
133+ let b2 = (balansUSDT + wplata)
134+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
135+ let W0 = LambertW0(a)
136+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
137+ let wyplata = ((nowabaza - baza) / 9)
138+ let nowypoziomrownowagi = (nowabaza / 18)
139+ let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
140+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
141+ }
142+ else {
143+ let b1 = (balansUSDT + wplata)
144+ let b2 = balansUSDN
145+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
146+ let W0 = LambertW0(a)
147+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
148+ let wyplata = ((nowabaza - baza) / 9)
149+ let nowypoziomrownowagi = (nowabaza / 18)
150+ let nowypoziom = (balansUSDN - nowypoziomrownowagi)
151+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
152+ }
133153 }
134- else {
135- let b1 = (balansUSDT + wplata)
136- let b2 = balansUSDN
137- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
138- let W0 = LambertW0(a)
139- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
140- let wyplata = ((nowabaza - baza) / 9)
141- let nowypoziomrownowagi = (nowabaza / 18)
142- let nowypoziom = (balansUSDN - nowypoziomrownowagi)
143-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
144- }
154+ else throw("Do tej funkcji mozesz wpłacać tylko USDT")
145155
146156
147157
148158 @Callable(i)
149-func WyplataUSDN (kwota) = {
150- let nowabaza = (baza - (kwota * 9))
151- let nowakwotarownowagi = (nowabaza / 18)
152- if ((balansUSDT > nowakwotarownowagi))
153- then {
154- let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
155- let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
156- let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
157-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
158- }
159- else {
160- let k = (nowakwotarownowagi - balansUSDT)
161- let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
162- let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
163-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
164- }
165- }
159+func WyplataUSDN () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
160+ then {
161+ let kwota = (i.payments[0].amount * 100)
162+ let nowabaza = (baza - (kwota * 9))
163+ let nowakwotarownowagi = (nowabaza / 18)
164+ if ((balansUSDT > nowakwotarownowagi))
165+ then {
166+ let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
167+ let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
168+ let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
169+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
170+ }
171+ else {
172+ let k = (nowakwotarownowagi - balansUSDT)
173+ let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
174+ let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
175+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
176+ }
177+ }
178+ else throw("Mozesz wpłacic tylko protona")
166179
167180
168181
169182 @Callable(i)
170-func WyplataUSDT (kwota) = {
171- let nowabaza = (baza - (kwota * 9))
172- let nowakwotarownowagi = (nowabaza / 18)
173- if ((balansUSDN > nowakwotarownowagi))
174- then {
175- let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
176- let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
177- let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
178-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
179- }
180- else {
181- let k = (nowakwotarownowagi - balansUSDN)
182- let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
183- let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
184-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("Warunek", 52)]
185- }
186- }
183+func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
184+ then {
185+ let kwota = (i.payments[0].amount * 100)
186+ let nowabaza = (baza - (kwota * 9))
187+ let nowakwotarownowagi = (nowabaza / 18)
188+ if ((balansUSDN > nowakwotarownowagi))
189+ then {
190+ let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
191+ let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
192+ let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
193+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
194+ }
195+ else {
196+ let k = (nowakwotarownowagi - balansUSDN)
197+ let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
198+ let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
199+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
200+ }
201+ }
202+ else throw("Mozesz wpłacic tylko protona")
187203
188204
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 4 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let e = 271828182
55
66 let kwotarownowagi = getIntegerValue(this, "kwotarownowagi")
77
88 let baza = (kwotarownowagi * 18)
99
1010 let enabled = getInteger(this, "enabled")
1111
1212 let poziom = getIntegerValue(this, "Poziom")
1313
1414 let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
1515
1616 let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
1717
1818 func ln (x) = log(x, 8, e, 8, 8, DOWN)
1919
2020
2121 func exp (x) = pow(e, 8, x, 8, 8, DOWN)
2222
2323
2424 func mnozenie (x,y) = fraction(x, y, 100000000)
2525
2626
2727 func dzielenie (x,y) = fraction(x, 100000000, y)
2828
2929
3030 func Halley (x,w) = {
3131 let wTimes = (mnozenie(w, exp(w)) - x)
3232 let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
3333 if ((wTimes != 0))
3434 then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
3535 else w
3636 }
3737
3838
3939 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)))))))))))))))
4040
4141
4242 func LambertW0 (x) = Halley(x, continuedfraction(x))
4343
4444
4545 @Callable(i)
4646 func USDTnaUSDNnaUSDT () = {
4747 let oplata = fraction(i.payments[0].amount, 4, 10000)
4848 let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
4949 if ((enabled == 1))
5050 then if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
5151 then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
5252 then if ((balansUSDT >= kwotarownowagi))
5353 then {
5454 let nowypoziom = (poziom + kwotawymiany)
5555 let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
5656 [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)]
5757 }
5858 else {
5959 let czesc1 = (kwotarownowagi - balansUSDT)
6060 let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
6161 let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
6262 [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)]
6363 }
6464 else {
6565 let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
6666 let nowypoziom = (poziom - wyplata)
6767 [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)]
6868 }
6969 else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
7070 then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
7171 then if ((balansUSDN >= kwotarownowagi))
7272 then {
7373 let nowypoziom = (poziom + kwotawymiany)
7474 let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
7575 [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 11)]
7676 }
7777 else {
7878 let czesc1 = (kwotarownowagi - balansUSDN)
7979 let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
8080 let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
8181 [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 21)]
8282 }
8383 else {
8484 let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
8585 let nowypoziom = (poziom - wyplata)
8686 [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 31)]
8787 }
8888 else throw("Nieobsługiwany asset")
8989 else throw("Kontrakt tymczasowo wyłączony")
9090 }
9191
9292
9393
9494 @Callable(i)
95-func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
95+func InwestycjaUSDN () = if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
9696 then {
97- let b1 = balansUSDT
98- let b2 = (balansUSDN + wplata)
99- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
100- let W0 = LambertW0(a)
101- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
102- let wyplata = ((nowabaza - baza) / 9)
103- let nowypoziomrownowagi = (nowabaza / 18)
104- let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
105-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
97+ let wplata = (i.payments[0].amount * 100)
98+ if (((balansUSDN + wplata) > balansUSDT))
99+ then {
100+ let b1 = balansUSDT
101+ let b2 = (balansUSDN + wplata)
102+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
103+ let W0 = LambertW0(a)
104+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
105+ let wyplata = ((nowabaza - baza) / 9)
106+ let nowypoziomrownowagi = (nowabaza / 18)
107+ let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
108+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
109+ }
110+ else {
111+ let b1 = (balansUSDN + wplata)
112+ let b2 = balansUSDT
113+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
114+ let W0 = LambertW0(a)
115+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
116+ let wyplata = ((nowabaza - baza) / 9)
117+ let nowypoziomrownowagi = (nowabaza / 18)
118+ let nowypoziom = (balansUSDT - nowypoziomrownowagi)
119+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
120+ }
106121 }
107- else {
108- let b1 = (balansUSDN + wplata)
109- let b2 = balansUSDT
110- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
111- let W0 = LambertW0(a)
112- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
113- let wyplata = ((nowabaza - baza) / 9)
114- let nowypoziomrownowagi = (nowabaza / 18)
115- let nowypoziom = (balansUSDT - nowypoziomrownowagi)
116-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
117- }
122+ else throw("Do tej funkcji mozesz wpłacać tylko USDN")
118123
119124
120125
121126 @Callable(i)
122-func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
127+func InwestycjaUSDT () = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
123128 then {
124- let b1 = balansUSDN
125- let b2 = (balansUSDT + wplata)
126- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
127- let W0 = LambertW0(a)
128- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
129- let wyplata = ((nowabaza - baza) / 9)
130- let nowypoziomrownowagi = (nowabaza / 18)
131- let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
132-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
129+ let wplata = (i.payments[0].amount * 100)
130+ if (((balansUSDT + wplata) > balansUSDN))
131+ then {
132+ let b1 = balansUSDN
133+ let b2 = (balansUSDT + wplata)
134+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
135+ let W0 = LambertW0(a)
136+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
137+ let wyplata = ((nowabaza - baza) / 9)
138+ let nowypoziomrownowagi = (nowabaza / 18)
139+ let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
140+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
141+ }
142+ else {
143+ let b1 = (balansUSDT + wplata)
144+ let b2 = balansUSDN
145+ let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
146+ let W0 = LambertW0(a)
147+ let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
148+ let wyplata = ((nowabaza - baza) / 9)
149+ let nowypoziomrownowagi = (nowabaza / 18)
150+ let nowypoziom = (balansUSDN - nowypoziomrownowagi)
151+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
152+ }
133153 }
134- else {
135- let b1 = (balansUSDT + wplata)
136- let b2 = balansUSDN
137- let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
138- let W0 = LambertW0(a)
139- let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
140- let wyplata = ((nowabaza - baza) / 9)
141- let nowypoziomrownowagi = (nowabaza / 18)
142- let nowypoziom = (balansUSDN - nowypoziomrownowagi)
143-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), IntegerEntry("WLambertvalue", (wyplata / 100))]
144- }
154+ else throw("Do tej funkcji mozesz wpłacać tylko USDT")
145155
146156
147157
148158 @Callable(i)
149-func WyplataUSDN (kwota) = {
150- let nowabaza = (baza - (kwota * 9))
151- let nowakwotarownowagi = (nowabaza / 18)
152- if ((balansUSDT > nowakwotarownowagi))
153- then {
154- let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
155- let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
156- let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
157-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
158- }
159- else {
160- let k = (nowakwotarownowagi - balansUSDT)
161- let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
162- let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
163-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
164- }
165- }
159+func WyplataUSDN () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
160+ then {
161+ let kwota = (i.payments[0].amount * 100)
162+ let nowabaza = (baza - (kwota * 9))
163+ let nowakwotarownowagi = (nowabaza / 18)
164+ if ((balansUSDT > nowakwotarownowagi))
165+ then {
166+ let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
167+ let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
168+ let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
169+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
170+ }
171+ else {
172+ let k = (nowakwotarownowagi - balansUSDT)
173+ let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
174+ let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
175+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
176+ }
177+ }
178+ else throw("Mozesz wpłacic tylko protona")
166179
167180
168181
169182 @Callable(i)
170-func WyplataUSDT (kwota) = {
171- let nowabaza = (baza - (kwota * 9))
172- let nowakwotarownowagi = (nowabaza / 18)
173- if ((balansUSDN > nowakwotarownowagi))
174- then {
175- let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
176- let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
177- let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
178-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi)]
179- }
180- else {
181- let k = (nowakwotarownowagi - balansUSDN)
182- let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
183- let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
184-[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("Warunek", 52)]
185- }
186- }
183+func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
184+ then {
185+ let kwota = (i.payments[0].amount * 100)
186+ let nowabaza = (baza - (kwota * 9))
187+ let nowakwotarownowagi = (nowabaza / 18)
188+ if ((balansUSDN > nowakwotarownowagi))
189+ then {
190+ let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
191+ let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
192+ let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
193+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
194+ }
195+ else {
196+ let k = (nowakwotarownowagi - balansUSDN)
197+ let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
198+ let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
199+[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
200+ }
201+ }
202+ else throw("Mozesz wpłacic tylko protona")
187203
188204

github/deemru/w8io/169f3d6 
41.92 ms