w8 · tx · 3jd···4MX

tx · 3jdZPkj6Q1bRVQmNbReEL2BDz8LPyxf46vHyJF6pP4MX

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.01 19:28 [1379351] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3jdZPkj6Q1bRVQmNbReEL2BDz8LPyxf46vHyJF6pP4MX",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612196976037,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "46PpfcxbHeyYvrFtMyL83A9czEKcikvXuYauP7vYaaCXjrf6zb1813fe6YCgY6kpAT1rhmF8jfrdC3p5VpAbdPUv"
    ],
    "script": "base64:AAIEAAAAAAAAABgIAhIAEgMKAQESAwoBARIDCgEBEgMKAQEAAAAOAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQAAAAkYTnKgAAAAAAAEYmF6YQkAAGgAAAACBQAAAA5rd290YXJvd25vd2FnaQAAAAAAAAAAEgAAAAAHZW5hYmxlZAkABBoAAAACBQAAAAR0aGlzAgAAAAdlbmFibGVkAAAAAAZwb3ppb20JAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAABlBvemlvbQAAAAAKYmFsYW5zVVNETgkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKAAAAAAAAAABkAAAAAApiYWxhbnNVU0RUCQAAaAAAAAIJAAPwAAAAAgUAAAAEdGhpcwEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84AAAAAAAAAAGQBAAAAAmxuAAAAAQAAAAF4CQAAbQAAAAYFAAAAAXgAAAAAAAAAAAgFAAAAAWUAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAAA2V4cAAAAAEAAAABeAkAAGwAAAAGBQAAAAFlAAAAAAAAAAAIBQAAAAF4AAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAAhtbm96ZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgFAAAAAXkAAAAAAAX14QABAAAACWR6aWVsZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgAAAAAAAX14QAFAAAAAXkBAAAABkhhbGxleQAAAAIAAAABeAAAAAF3BAAAAAZ3VGltZXMJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAABdwkBAAAAA2V4cAAAAAEFAAAAAXcFAAAAAXgEAAAADXdQbHVzT25lVGltZXMJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAABfXhAAkBAAAAA2V4cAAAAAEFAAAAAXcDCQEAAAACIT0AAAACBQAAAAZ3VGltZXMAAAAAAAAAAAAJAABlAAAAAgUAAAABdwkBAAAACWR6aWVsZW5pZQAAAAIFAAAABndUaW1lcwkAAGUAAAACBQAAAA13UGx1c09uZVRpbWVzCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGQAAAACBQAAAAF3AAAAAAAL68IABQAAAAZ3VGltZXMJAABkAAAAAgkAAGgAAAACAAAAAAAAAAACBQAAAAF3AAAAAAAL68IABQAAAAF3AQAAABFjb250aW51ZWRmcmFjdGlvbgAAAAEAAAABeAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAAC+vCAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAABQkAAGQAAAACAAAAAAAR4aMACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAARCQAAZAAAAAIAAAAAADuaygAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAIUJAABkAAAAAgAAAAAAZVPxAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAHhwkAAGQAAAACAAAAAABxP7MACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAz0F3AAAACJZ07/cAAQAAAAlMYW1iZXJ0VzAAAAABAAAAAXgJAQAAAAZIYWxsZXkAAAACBQAAAAF4CQEAAAARY29udGludWVkZnJhY3Rpb24AAAABBQAAAAF4AAAABQAAAAFpAQAAABBVU0RUbmFVU0RObmFVU0RUAAAAAAQAAAAGb3BsYXRhCQAAawAAAAMICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAABAAAAAAAAAAnEAQAAAAMa3dvdGF3eW1pYW55CQAAawAAAAMJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAAZvcGxhdGEAAAAAAAAAAGQAAAAAAAAAAAEDCQAAAAAAAAIFAAAAB2VuYWJsZWQAAAAAAAAAAAEDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAwkAAGYAAAACBQAAAAxrd290YXd5bWlhbnkJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQDCQAAZwAAAAIFAAAACmJhbGFuc1VTRFQFAAAADmt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABnBvemlvbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAABBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAACBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAwUAAAADbmlsAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROAwkAAGcAAAACBQAAAApiYWxhbnNVU0ROBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAACwUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4EAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAFQUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAB8FAAAAA25pbAkAAAIAAAABAgAAABVOaWVvYnPFgnVnaXdhbnkgYXNzZXQJAAACAAAAAQIAAAAfS29udHJha3QgdHltY3phc293byB3ecWCxIVjem9ueQAAAAFpAQAAAA5Jbndlc3R5Y2phVVNETgAAAAEAAAAGd3BsYXRhAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAAKYmFsYW5zVVNEVAQAAAACYjEFAAAACmJhbGFuc1VTRFQEAAAAAmIyCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACCQAAZAAAAAIFAAAAAmIyCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxCQAAaAAAAAIAAAAAAAAAABIFAAAAAmIyBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACAAAAAAAAAAAJBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACBQAAAAJXMAAAAAAAAAAACQUAAAACYjIJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxAAAAAAAL68IABAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsBAAAAAJiMQkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEEAAAAAmIyBQAAAApiYWxhbnNVU0RUBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIJAABkAAAAAgUAAAACYjIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEJAABoAAAAAgAAAAAAAAAAEgUAAAACYjIEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIFAAAAAlcwAAAAAAAAAAAJBQAAAAJiMgkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEAAAAAAAvrwgAEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQFAAAAA25pbAAAAAFpAQAAAA5Jbndlc3R5Y2phVVNEVAAAAAEAAAAGd3BsYXRhAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAAKYmFsYW5zVVNETgQAAAACYjEFAAAACmJhbGFuc1VTRE4EAAAAAmIyCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACCQAAZAAAAAIFAAAAAmIyCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxCQAAaAAAAAIAAAAAAAAAABIFAAAAAmIyBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACAAAAAAAAAAAJBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACBQAAAAJXMAAAAAAAAAAACQUAAAACYjIJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxAAAAAAAL68IABAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsBAAAAAJiMQkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAmIyBQAAAApiYWxhbnNVU0ROBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIJAABkAAAAAgUAAAACYjIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEJAABoAAAAAgAAAAAAAAAAEgUAAAACYjIEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIFAAAAAlcwAAAAAAAAAAAJBQAAAAJiMgkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEAAAAAAAvrwgAEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAApiYWxhbnNVU0ROBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQFAAAAA25pbAAAAAFpAQAAABZXeXBsYXRhVVNETmlubndlc3R5Y2ppAAAAAQAAAAVrd290YQQAAAAIbm93YWJhemEJAABlAAAAAgUAAAAEYmF6YQkAAGgAAAACBQAAAAVrd290YQAAAAAAAAAACQQAAAASbm93YWt3b3Rhcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASAwkAAGYAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAACG5vd2FiYXphBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAzBQAAAANuaWwEAAAAAWsJAABlAAAAAgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUBAAAAApub3d5cG96aW9tCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAApiYWxhbnNVU0ROCQAAZAAAAAIJAABlAAAAAgUAAAAKbm93eXBvemlvbQUAAAAIbm93YWJhemEFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAA0BQAAAANuaWwAAAABaQEAAAAWV3lwbGF0YVVTRFRpbm53ZXN0eWNqaQAAAAEAAAAFa3dvdGEEAAAACG5vd2FiYXphCQAAZQAAAAIFAAAABGJhemEJAABoAAAAAgUAAAAFa3dvdGEAAAAAAAAAAAkEAAAAEm5vd2Frd290YXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgMJAABmAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAhub3dhYmF6YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAAAWEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAMwUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAANAUAAAADbmlsAAAAANGL1ng=",
    "height": 1379351,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 29KRsxv4HE2Vb5SPC5HjajxeH35P4EsTo72Btfv9dC9T
Next: ZTDU2bWSksVLBe8J2ZDaPTcuW4vbc3Pf5aN7WkfQij4

Diff: 
Old New Differences
119 119  
120 120  
121 121  @Callable(i)
122 + func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
123 +     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("WLambertvalue", (wyplata / 100))]
133 +         }
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("WLambertvalue", (wyplata / 100))]
144 +         }
145 + 
146 + 
147 + 
148 + @Callable(i)
122 149  func WyplataUSDNinnwestycji (kwota) = {
123 150      let nowabaza = (baza - (kwota * 9))
124 151      let nowakwotarownowagi = (nowabaza / 18)
138 165      }
139 166  
140 167  
168 + 
169 + @Callable(i)
170 + func WyplataUSDTinnwestycji (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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
185 +             }
186 +     }
187 + 
188 + 
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let e = 271828182
5 5  
6 6  let kwotarownowagi = 10000000000000
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, 8, x, 8, 8, DOWN)
22 22  
23 23  
24 24  func mnozenie (x,y) = fraction(x, y, 100000000)
25 25  
26 26  
27 27  func dzielenie (x,y) = fraction(x, 100000000, y)
28 28  
29 29  
30 30  func Halley (x,w) = {
31 31      let wTimes = (mnozenie(w, exp(w)) - x)
32 32      let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
33 33      if ((wTimes != 0))
34 34          then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
35 35          else w
36 36      }
37 37  
38 38  
39 39  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)))))))))))))))
40 40  
41 41  
42 42  func LambertW0 (x) = Halley(x, continuedfraction(x))
43 43  
44 44  
45 45  @Callable(i)
46 46  func USDTnaUSDNnaUSDT () = {
47 47      let oplata = fraction(i.payments[0].amount, 4, 10000)
48 48      let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
49 49      if ((enabled == 1))
50 50          then if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
51 51              then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
52 52                  then if ((balansUSDT >= kwotarownowagi))
53 53                      then {
54 54                          let nowypoziom = (poziom + kwotawymiany)
55 55                          let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
56 56  [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)]
57 57                          }
58 58                      else {
59 59                          let czesc1 = (kwotarownowagi - balansUSDT)
60 60                          let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
61 61                          let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
62 62  [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)]
63 63                          }
64 64                  else {
65 65                      let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
66 66                      let nowypoziom = (poziom - wyplata)
67 67  [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)]
68 68                      }
69 69              else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
70 70                  then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
71 71                      then if ((balansUSDN >= kwotarownowagi))
72 72                          then {
73 73                              let nowypoziom = (poziom + kwotawymiany)
74 74                              let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
75 75  [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)]
76 76                              }
77 77                          else {
78 78                              let czesc1 = (kwotarownowagi - balansUSDN)
79 79                              let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
80 80                              let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
81 81  [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)]
82 82                              }
83 83                      else {
84 84                          let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
85 85                          let nowypoziom = (poziom - wyplata)
86 86  [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)]
87 87                          }
88 88                  else throw("Nieobsługiwany asset")
89 89          else throw("Kontrakt tymczasowo wyłączony")
90 90      }
91 91  
92 92  
93 93  
94 94  @Callable(i)
95 95  func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
96 96      then {
97 97          let b1 = balansUSDT
98 98          let b2 = (balansUSDN + wplata)
99 99          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
100 100          let W0 = LambertW0(a)
101 101          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
102 102          let wyplata = ((nowabaza - baza) / 9)
103 103          let nowypoziomrownowagi = (nowabaza / 18)
104 104          let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
105 105  [IntegerEntry("WLambertvalue", (wyplata / 100))]
106 106          }
107 107      else {
108 108          let b1 = (balansUSDN + wplata)
109 109          let b2 = balansUSDT
110 110          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
111 111          let W0 = LambertW0(a)
112 112          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
113 113          let wyplata = ((nowabaza - baza) / 9)
114 114          let nowypoziomrownowagi = (nowabaza / 18)
115 115          let nowypoziom = (balansUSDT - nowypoziomrownowagi)
116 116  [IntegerEntry("WLambertvalue", (wyplata / 100))]
117 117          }
118 118  
119 119  
120 120  
121 121  @Callable(i)
122 + func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
123 +     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("WLambertvalue", (wyplata / 100))]
133 +         }
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("WLambertvalue", (wyplata / 100))]
144 +         }
145 + 
146 + 
147 + 
148 + @Callable(i)
122 149  func WyplataUSDNinnwestycji (kwota) = {
123 150      let nowabaza = (baza - (kwota * 9))
124 151      let nowakwotarownowagi = (nowabaza / 18)
125 152      if ((balansUSDT > nowakwotarownowagi))
126 153          then {
127 154              let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
128 155              let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
129 156              let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
130 157  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
131 158              }
132 159          else {
133 160              let k = (nowakwotarownowagi - balansUSDT)
134 161              let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
135 162              let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
136 163  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
137 164              }
138 165      }
139 166  
140 167  
168 + 
169 + @Callable(i)
170 + func WyplataUSDTinnwestycji (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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
185 +             }
186 +     }
187 + 
188 +

Old	New		Differences
119	119
120	120
121	121		@Callable(i)
	122	+	func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
	123	+	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("WLambertvalue", (wyplata / 100))]
	133	+	}
	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("WLambertvalue", (wyplata / 100))]
	144	+	}
	145	+
	146	+
	147	+
	148	+	@Callable(i)
122	149		func WyplataUSDNinnwestycji (kwota) = {
123	150		let nowabaza = (baza - (kwota * 9))
124	151		let nowakwotarownowagi = (nowabaza / 18)

138	165		}
139	166
140	167
	168	+
	169	+	@Callable(i)
	170	+	func WyplataUSDTinnwestycji (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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
	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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
	185	+	}
	186	+	}
	187	+
	188	+

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let e = 271828182
5	5
6	6		let kwotarownowagi = 10000000000000
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, 8, x, 8, 8, DOWN)
22	22
23	23
24	24		func mnozenie (x,y) = fraction(x, y, 100000000)
25	25
26	26
27	27		func dzielenie (x,y) = fraction(x, 100000000, y)
28	28
29	29
30	30		func Halley (x,w) = {
31	31		let wTimes = (mnozenie(w, exp(w)) - x)
32	32		let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
33	33		if ((wTimes != 0))
34	34		then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
35	35		else w
36	36		}
37	37
38	38
39	39		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)))))))))))))))
40	40
41	41
42	42		func LambertW0 (x) = Halley(x, continuedfraction(x))
43	43
44	44
45	45		@Callable(i)
46	46		func USDTnaUSDNnaUSDT () = {
47	47		let oplata = fraction(i.payments[0].amount, 4, 10000)
48	48		let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
49	49		if ((enabled == 1))
50	50		then if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
51	51		then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
52	52		then if ((balansUSDT >= kwotarownowagi))
53	53		then {
54	54		let nowypoziom = (poziom + kwotawymiany)
55	55		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
56	56		[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)]
57	57		}
58	58		else {
59	59		let czesc1 = (kwotarownowagi - balansUSDT)
60	60		let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
61	61		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
62	62		[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)]
63	63		}
64	64		else {
65	65		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
66	66		let nowypoziom = (poziom - wyplata)
67	67		[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)]
68	68		}
69	69		else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
70	70		then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
71	71		then if ((balansUSDN >= kwotarownowagi))
72	72		then {
73	73		let nowypoziom = (poziom + kwotawymiany)
74	74		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
75	75		[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)]
76	76		}
77	77		else {
78	78		let czesc1 = (kwotarownowagi - balansUSDN)
79	79		let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
80	80		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
81	81		[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)]
82	82		}
83	83		else {
84	84		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
85	85		let nowypoziom = (poziom - wyplata)
86	86		[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)]
87	87		}
88	88		else throw("Nieobsługiwany asset")
89	89		else throw("Kontrakt tymczasowo wyłączony")
90	90		}
91	91
92	92
93	93
94	94		@Callable(i)
95	95		func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
96	96		then {
97	97		let b1 = balansUSDT
98	98		let b2 = (balansUSDN + wplata)
99	99		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
100	100		let W0 = LambertW0(a)
101	101		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
102	102		let wyplata = ((nowabaza - baza) / 9)
103	103		let nowypoziomrownowagi = (nowabaza / 18)
104	104		let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
105	105		[IntegerEntry("WLambertvalue", (wyplata / 100))]
106	106		}
107	107		else {
108	108		let b1 = (balansUSDN + wplata)
109	109		let b2 = balansUSDT
110	110		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
111	111		let W0 = LambertW0(a)
112	112		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
113	113		let wyplata = ((nowabaza - baza) / 9)
114	114		let nowypoziomrownowagi = (nowabaza / 18)
115	115		let nowypoziom = (balansUSDT - nowypoziomrownowagi)
116	116		[IntegerEntry("WLambertvalue", (wyplata / 100))]
117	117		}
118	118
119	119
120	120
121	121		@Callable(i)
	122	+	func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
	123	+	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("WLambertvalue", (wyplata / 100))]
	133	+	}
	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("WLambertvalue", (wyplata / 100))]
	144	+	}
	145	+
	146	+
	147	+
	148	+	@Callable(i)
122	149		func WyplataUSDNinnwestycji (kwota) = {
123	150		let nowabaza = (baza - (kwota * 9))
124	151		let nowakwotarownowagi = (nowabaza / 18)
125	152		if ((balansUSDT > nowakwotarownowagi))
126	153		then {
127	154		let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
128	155		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
129	156		let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
130	157		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
131	158		}
132	159		else {
133	160		let k = (nowakwotarownowagi - balansUSDT)
134	161		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
135	162		let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
136	163		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
137	164		}
138	165		}
139	166
140	167
	168	+
	169	+	@Callable(i)
	170	+	func WyplataUSDTinnwestycji (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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
	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("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
	185	+	}
	186	+	}
	187	+
	188	+

github/deemru/w8io/169f3d6 
53.27 ms ◑