w8 · tx · ZTD···ij4

tx · ZTDU2bWSksVLBe8J2ZDaPTcuW4vbc3Pf5aN7WkfQij4

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.01 19:30 [1379353] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "ZTDU2bWSksVLBe8J2ZDaPTcuW4vbc3Pf5aN7WkfQij4",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612197039038,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "6KeszQDKbGmZeF2kBktURBXLS6cB2o9wy5nyjxHh9EbyPtRDRZb927cHbkSCMvfDT8MDkTgyYfvtpJasfbN8FLW"
    ],
    "script": "base64:AAIEAAAAAAAAABgIAhIAEgMKAQESAwoBARIDCgEBEgMKAQEAAAAOAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQAAAAkYTnKgAAAAAAAEYmF6YQkAAGgAAAACBQAAAA5rd290YXJvd25vd2FnaQAAAAAAAAAAEgAAAAAHZW5hYmxlZAkABBoAAAACBQAAAAR0aGlzAgAAAAdlbmFibGVkAAAAAAZwb3ppb20JAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAABlBvemlvbQAAAAAKYmFsYW5zVVNETgkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKAAAAAAAAAABkAAAAAApiYWxhbnNVU0RUCQAAaAAAAAIJAAPwAAAAAgUAAAAEdGhpcwEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84AAAAAAAAAAGQBAAAAAmxuAAAAAQAAAAF4CQAAbQAAAAYFAAAAAXgAAAAAAAAAAAgFAAAAAWUAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAAA2V4cAAAAAEAAAABeAkAAGwAAAAGBQAAAAFlAAAAAAAAAAAIBQAAAAF4AAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAAhtbm96ZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgFAAAAAXkAAAAAAAX14QABAAAACWR6aWVsZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgAAAAAAAX14QAFAAAAAXkBAAAABkhhbGxleQAAAAIAAAABeAAAAAF3BAAAAAZ3VGltZXMJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAABdwkBAAAAA2V4cAAAAAEFAAAAAXcFAAAAAXgEAAAADXdQbHVzT25lVGltZXMJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAABfXhAAkBAAAAA2V4cAAAAAEFAAAAAXcDCQEAAAACIT0AAAACBQAAAAZ3VGltZXMAAAAAAAAAAAAJAABlAAAAAgUAAAABdwkBAAAACWR6aWVsZW5pZQAAAAIFAAAABndUaW1lcwkAAGUAAAACBQAAAA13UGx1c09uZVRpbWVzCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGQAAAACBQAAAAF3AAAAAAAL68IABQAAAAZ3VGltZXMJAABkAAAAAgkAAGgAAAACAAAAAAAAAAACBQAAAAF3AAAAAAAL68IABQAAAAF3AQAAABFjb250aW51ZWRmcmFjdGlvbgAAAAEAAAABeAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAABfXhAAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAABkAAAAAgAAAAAAC+vCAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAABQkAAGQAAAACAAAAAAAR4aMACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAARCQAAZAAAAAIAAAAAADuaygAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAIUJAABkAAAAAgAAAAAAZVPxAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAHhwkAAGQAAAACAAAAAABxP7MACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAz0F3AAAACJZ07/cAAQAAAAlMYW1iZXJ0VzAAAAABAAAAAXgJAQAAAAZIYWxsZXkAAAACBQAAAAF4CQEAAAARY29udGludWVkZnJhY3Rpb24AAAABBQAAAAF4AAAABQAAAAFpAQAAABBVU0RUbmFVU0RObmFVU0RUAAAAAAQAAAAGb3BsYXRhCQAAawAAAAMICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAABAAAAAAAAAAnEAQAAAAMa3dvdGF3eW1pYW55CQAAawAAAAMJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAAZvcGxhdGEAAAAAAAAAAGQAAAAAAAAAAAEDCQAAAAAAAAIFAAAAB2VuYWJsZWQAAAAAAAAAAAEDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAwkAAGYAAAACBQAAAAxrd290YXd5bWlhbnkJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQDCQAAZwAAAAIFAAAACmJhbGFuc1VTRFQFAAAADmt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABnBvemlvbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAABBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAACBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAwUAAAADbmlsAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROAwkAAGcAAAACBQAAAApiYWxhbnNVU0ROBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAACwUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4EAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAFQUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAB8FAAAAA25pbAkAAAIAAAABAgAAABVOaWVvYnPFgnVnaXdhbnkgYXNzZXQJAAACAAAAAQIAAAAfS29udHJha3QgdHltY3phc293byB3ecWCxIVjem9ueQAAAAFpAQAAAA5Jbndlc3R5Y2phVVNETgAAAAEAAAAGd3BsYXRhAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAAKYmFsYW5zVVNEVAQAAAACYjEFAAAACmJhbGFuc1VTRFQEAAAAAmIyCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACCQAAZAAAAAIFAAAAAmIyCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxCQAAaAAAAAIAAAAAAAAAABIFAAAAAmIyBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACAAAAAAAAAAAJBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACBQAAAAJXMAAAAAAAAAAACQUAAAACYjIJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxAAAAAAAL68IABAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsBAAAAAJiMQkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEEAAAAAmIyBQAAAApiYWxhbnNVU0RUBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIJAABkAAAAAgUAAAACYjIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEJAABoAAAAAgAAAAAAAAAAEgUAAAACYjIEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIFAAAAAlcwAAAAAAAAAAAJBQAAAAJiMgkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEAAAAAAAvrwgAEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQFAAAAA25pbAAAAAFpAQAAAA5Jbndlc3R5Y2phVVNEVAAAAAEAAAAGd3BsYXRhAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAAKYmFsYW5zVVNETgQAAAACYjEFAAAACmJhbGFuc1VTRE4EAAAAAmIyCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAmIxBQAAAAJiMgkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACCQAAZAAAAAIFAAAAAmIyCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxCQAAaAAAAAIAAAAAAAAAABIFAAAAAmIyBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACAAAAAAAAAAAJBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgkAAGgAAAACBQAAAAJXMAAAAAAAAAAACQUAAAACYjIJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIAAAAAAAAAABEFAAAAAmIxAAAAAAAL68IABAAAAAd3eXBsYXRhCQAAaQAAAAIJAABlAAAAAgUAAAAIbm93YWJhemEFAAAABGJhemEAAAAAAAAAAAkEAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsBAAAAAJiMQkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAmIyBQAAAApiYWxhbnNVU0ROBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIJAABkAAAAAgUAAAACYjIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEJAABoAAAAAgAAAAAAAAAAEgUAAAACYjIEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIFAAAAAlcwAAAAAAAAAAAJBQAAAAJiMgkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEAAAAAAAvrwgAEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAApiYWxhbnNVU0ROBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQFAAAAA25pbAAAAAFpAQAAABZXeXBsYXRhVVNETmlubndlc3R5Y2ppAAAAAQAAAAVrd290YQQAAAAIbm93YWJhemEJAABlAAAAAgUAAAAEYmF6YQkAAGgAAAACBQAAAAVrd290YQAAAAAAAAAACQQAAAASbm93YWt3b3Rhcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASAwkAAGYAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAACG5vd2FiYXphBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAzBQAAAANuaWwEAAAAAWsJAABlAAAAAgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUBAAAAApub3d5cG96aW9tCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAApiYWxhbnNVU0ROCQAAZAAAAAIJAABlAAAAAgUAAAAKbm93eXBvemlvbQUAAAAIbm93YWJhemEFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAA0BQAAAANuaWwAAAABaQEAAAALV3lwbGF0YVVTRFQAAAABAAAABWt3b3RhBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADMFAAAAA25pbAQAAAABawkAAGUAAAACBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4EAAAACm5vd3lwb3ppb20JAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAWsFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQJAABkAAAAAgkAAGUAAAACBQAAAApub3d5cG96aW9tBQAAAAhub3dhYmF6YQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA1XTGFtYmVydHZhbHVlCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADQFAAAAA25pbAAAAAD/WVVK",
    "height": 1379353,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3jdZPkj6Q1bRVQmNbReEL2BDz8LPyxf46vHyJF6pP4MX
Next: B89ADX1khY2BpCLypySDNMKEP5M4Yy5ofnNE2uKUgqrj

Diff: 
Old New Differences
167 167  
168 168  
169 169  @Callable(i)
170 - func WyplataUSDTinnwestycji (kwota) = {
170 + func WyplataUSDT (kwota) = {
171 171      let nowabaza = (baza - (kwota * 9))
172 172      let nowakwotarownowagi = (nowabaza / 18)
173 173      if ((balansUSDN > nowakwotarownowagi))
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 122  func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
123 123      then {
124 124          let b1 = balansUSDN
125 125          let b2 = (balansUSDT + wplata)
126 126          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
127 127          let W0 = LambertW0(a)
128 128          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
129 129          let wyplata = ((nowabaza - baza) / 9)
130 130          let nowypoziomrownowagi = (nowabaza / 18)
131 131          let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
132 132  [IntegerEntry("WLambertvalue", (wyplata / 100))]
133 133          }
134 134      else {
135 135          let b1 = (balansUSDT + wplata)
136 136          let b2 = balansUSDN
137 137          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
138 138          let W0 = LambertW0(a)
139 139          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
140 140          let wyplata = ((nowabaza - baza) / 9)
141 141          let nowypoziomrownowagi = (nowabaza / 18)
142 142          let nowypoziom = (balansUSDN - nowypoziomrownowagi)
143 143  [IntegerEntry("WLambertvalue", (wyplata / 100))]
144 144          }
145 145  
146 146  
147 147  
148 148  @Callable(i)
149 149  func WyplataUSDNinnwestycji (kwota) = {
150 150      let nowabaza = (baza - (kwota * 9))
151 151      let nowakwotarownowagi = (nowabaza / 18)
152 152      if ((balansUSDT > nowakwotarownowagi))
153 153          then {
154 154              let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
155 155              let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
156 156              let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
157 157  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
158 158              }
159 159          else {
160 160              let k = (nowakwotarownowagi - balansUSDT)
161 161              let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
162 162              let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
163 163  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
164 164              }
165 165      }
166 166  
167 167  
168 168  
169 169  @Callable(i)
170 - func WyplataUSDTinnwestycji (kwota) = {
170 + func WyplataUSDT (kwota) = {
171 171      let nowabaza = (baza - (kwota * 9))
172 172      let nowakwotarownowagi = (nowabaza / 18)
173 173      if ((balansUSDN > nowakwotarownowagi))
174 174          then {
175 175              let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
176 176              let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
177 177              let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
178 178  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
179 179              }
180 180          else {
181 181              let k = (nowakwotarownowagi - balansUSDN)
182 182              let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
183 183              let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
184 184  [IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
185 185              }
186 186      }
187 187  
188 188

Old	New		Differences
167	167
168	168
169	169		@Callable(i)
170		-	func ~~WyplataUSDTinnwestycji~~ (kwota) = {
	170	+	func WyplataUSDT (kwota) = {
171	171		let nowabaza = (baza - (kwota * 9))
172	172		let nowakwotarownowagi = (nowabaza / 18)
173	173		if ((balansUSDN > nowakwotarownowagi))

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	122		func InwestycjaUSDT (wplata) = if (((balansUSDT + wplata) > balansUSDN))
123	123		then {
124	124		let b1 = balansUSDN
125	125		let b2 = (balansUSDT + wplata)
126	126		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
127	127		let W0 = LambertW0(a)
128	128		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
129	129		let wyplata = ((nowabaza - baza) / 9)
130	130		let nowypoziomrownowagi = (nowabaza / 18)
131	131		let nowypoziom = ((balansUSDT + wplata) - nowypoziomrownowagi)
132	132		[IntegerEntry("WLambertvalue", (wyplata / 100))]
133	133		}
134	134		else {
135	135		let b1 = (balansUSDT + wplata)
136	136		let b2 = balansUSDN
137	137		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
138	138		let W0 = LambertW0(a)
139	139		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
140	140		let wyplata = ((nowabaza - baza) / 9)
141	141		let nowypoziomrownowagi = (nowabaza / 18)
142	142		let nowypoziom = (balansUSDN - nowypoziomrownowagi)
143	143		[IntegerEntry("WLambertvalue", (wyplata / 100))]
144	144		}
145	145
146	146
147	147
148	148		@Callable(i)
149	149		func WyplataUSDNinnwestycji (kwota) = {
150	150		let nowabaza = (baza - (kwota * 9))
151	151		let nowakwotarownowagi = (nowabaza / 18)
152	152		if ((balansUSDT > nowakwotarownowagi))
153	153		then {
154	154		let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
155	155		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
156	156		let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
157	157		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
158	158		}
159	159		else {
160	160		let k = (nowakwotarownowagi - balansUSDT)
161	161		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
162	162		let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
163	163		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
164	164		}
165	165		}
166	166
167	167
168	168
169	169		@Callable(i)
170		-	func ~~WyplataUSDTinnwestycji~~ (kwota) = {
	170	+	func WyplataUSDT (kwota) = {
171	171		let nowabaza = (baza - (kwota * 9))
172	172		let nowakwotarownowagi = (nowabaza / 18)
173	173		if ((balansUSDN > nowakwotarownowagi))
174	174		then {
175	175		let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
176	176		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
177	177		let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
178	178		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 51)]
179	179		}
180	180		else {
181	181		let k = (nowakwotarownowagi - balansUSDN)
182	182		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
183	183		let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
184	184		[IntegerEntry("WLambertvalue", (wyplata / 100)), IntegerEntry("Warunek", 52)]
185	185		}
186	186		}
187	187
188	188

github/deemru/w8io/169f3d6 
45.16 ms ◑