w8 · tx · 9XX···7xD

tx · 9XXzLHg4UYG9PWX3ouhB5DodycVYSLNnsC2Mdbee57xD

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.01 12:14 [1378908] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9XXzLHg4UYG9PWX3ouhB5DodycVYSLNnsC2Mdbee57xD",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612170839928,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "4tu1iqzsYx8dDuExy4vJ8GYquiSdyPtnCVVbNx6Jg9wW6BjfVdYNWdEFFhJK7UXYgzAZXjakJVx2k3exMnBiiw7b"
    ],
    "script": "base64:AAIEAAAAAAAAAA4IAhIAEgMKAQESAwoBAQAAAA4AAAAAAWUAAAAAABAzxNYAAAAADmt3b3Rhcm93bm93YWdpAAAACRhOcqAAAAAAAARiYXphCQAAaAAAAAIFAAAADmt3b3Rhcm93bm93YWdpAAAAAAAAAAASAAAAAAdlbmFibGVkCQAEGgAAAAIFAAAABHRoaXMCAAAAB2VuYWJsZWQAAAAABnBvemlvbQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAGUG96aW9tAAAAAApiYWxhbnNVU0ROCQAAaAAAAAIJAAPwAAAAAgUAAAAEdGhpcwEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oAAAAAAAAAAGQAAAAACmJhbGFuc1VTRFQJAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgAAAAAAAAAAZAEAAAACbG4AAAABAAAAAXgJAABtAAAABgUAAAABeAAAAAAAAAAACAUAAAABZQAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAADZXhwAAAAAQAAAAF4CQAAbAAAAAYFAAAAAWUAAAAAAAAAAAgFAAAAAXgAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAACG1ub3plbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAUAAAABeQAAAAAABfXhAAEAAAAJZHppZWxlbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAAAAAAABfXhAAUAAAABeQEAAAAGSGFsbGV5AAAAAgAAAAF4AAAAAXcEAAAABndUaW1lcwkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAF3CQEAAAADZXhwAAAAAQUAAAABdwUAAAABeAQAAAANd1BsdXNPbmVUaW1lcwkBAAAACG1ub3plbmllAAAAAgkAAGQAAAACBQAAAAF3AAAAAAAF9eEACQEAAAADZXhwAAAAAQUAAAABdwMJAQAAAAIhPQAAAAIFAAAABndUaW1lcwAAAAAAAAAAAAkAAGUAAAACBQAAAAF3CQEAAAAJZHppZWxlbmllAAAAAgUAAAAGd1RpbWVzCQAAZQAAAAIFAAAADXdQbHVzT25lVGltZXMJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAvrwgAFAAAABndUaW1lcwkAAGQAAAACCQAAaAAAAAIAAAAAAAAAAAIFAAAAAXcAAAAAAAvrwgAFAAAAAXcBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQAAAAF4CQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAF9eEACQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAF9eEACQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAL68IACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAAFCQAAZAAAAAIAAAAAABHhowAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAABEJAABkAAAAAgAAAAAAO5rKAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAhQkAAGQAAAACAAAAAABlU/EACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAeHCQAAZAAAAAIAAAAAAHE/swAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAADPQXcAAAAIlnTv9wABAAAACUxhbWJlcnRXMAAAAAEAAAABeAkBAAAABkhhbGxleQAAAAIFAAAAAXgJAQAAABFjb250aW51ZWRmcmFjdGlvbgAAAAEFAAAAAXgAAAADAAAAAWkBAAAAEFVTRFRuYVVTRE5uYVVTRFQAAAAABAAAAAZvcGxhdGEJAABrAAAAAwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAAAEAAAAAAAAACcQBAAAAAxrd290YXd5bWlhbnkJAABrAAAAAwkAAGUAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAABm9wbGF0YQAAAAAAAAAAZAAAAAAAAAAAAQMJAAAAAAAAAgUAAAAHZW5hYmxlZAAAAAAAAAAAAQMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84DCQAAZgAAAAIFAAAADGt3b3Rhd3ltaWFueQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAMJAABnAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAEFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAIFAAAAA25pbAQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAABnBvemlvbQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAADBQAAAANuaWwDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKAwkAAGYAAAACBQAAAAxrd290YXd5bWlhbnkJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4DCQAAZwAAAAIFAAAACmJhbGFuc1VTRE4FAAAADmt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABnBvemlvbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAALBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAVBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAHwUAAAADbmlsCQAAAgAAAAECAAAAFU5pZW9ic8WCdWdpd2FueSBhc3NldAkAAAIAAAABAgAAAB9Lb250cmFrdCB0eW1jemFzb3dvIHd5xYLEhWN6b255AAAAAWkBAAAADklud2VzdHljamFVU0ROAAAAAQAAAAZ3cGxhdGEDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUBAAAAAJiMQUAAAAKYmFsYW5zVVNEVAQAAAACYjIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIJAABkAAAAAgUAAAACYjIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEJAABoAAAAAgAAAAAAAAAAEgUAAAACYjIEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIAAAAAAAAAAAkFAAAAAmIxBQAAAAJiMgkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAaAAAAAIFAAAAAlcwAAAAAAAAAAAJBQAAAAJiMgkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAAEQUAAAACYjEAAAAAAAvrwgAEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAATbm93eXBvemlvbXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRFQEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsAAAAAWkBAAAAFld5cGxhdGFVU0ROaW5ud2VzdHljamkAAAABAAAABWt3b3RhBAAAAAhwb3ppb211cAkAAGUAAAACBQAAAAZwb3ppb20FAAAABGJhemEEAAAACG5vd2FiYXphCQAAZQAAAAIFAAAABGJhemEJAABoAAAAAgUAAAAFa3dvdGEAAAAAAAAAAAkEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAIbm93YWJhemEFAAAACHBvemlvbXVwBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABoAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRFQFAAAACmJhbGFuc1VTRE4EAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAAWEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAABYQkAAGUAAAACBQAAAApub3d5cG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAKbm93eXBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAANV0xhbWJlcnR2YWx1ZQkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAANuaWwAAAAA/Ior2A==",
    "height": 1378908,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: H6yY6akjzihb56sjphQij7nn8pYvMcPrnnGmfDFaseqK
Next: C5AnFTfaAsxzz2S4P71qhRNh1omuJn4T9RBygAQusPE1

Diff: 
Old New Differences
92 92  
93 93  
94 94  @Callable(i)
95 - func InwestycjaUSDN (wplata) = if (((balansUSDT + wplata) > balansUSDN))
95 + func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
96 96      then {
97 97          let b1 = balansUSDT
98 98          let b2 = (balansUSDN + wplata)
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 +         let nowypoziomrownowagi = (nowabaza / 18)
104 +         let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
103 105  [IntegerEntry("WLambertvalue", (wyplata / 100))]
104 106          }
105 107      else {
106 -         let b1 = (balansUSDT + wplata)
107 -         let b2 = balansUSDN
108 +         let b1 = (balansUSDN + wplata)
109 +         let b2 = balansUSDT
108 110          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
109 111          let W0 = LambertW0(a)
110 112          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
111 113          let wyplata = ((nowabaza - baza) / 9)
114 +         let nowypoziomrownowagi = (nowabaza / 18)
115 +         let nowypoziom = (balansUSDT - nowypoziomrownowagi)
112 116  [IntegerEntry("WLambertvalue", (wyplata / 100))]
113 117          }
118 + 
119 + 
120 + 
121 + @Callable(i)
122 + func WyplataUSDNinnwestycji (kwota) = {
123 +     let poziomup = (poziom - baza)
124 +     let nowabaza = (baza - (kwota * 9))
125 +     let nowypoziom = (nowabaza + poziomup)
126 +     let nowakwotarownowagi = (nowabaza * 18)
127 +     if ((balansUSDT > balansUSDN))
128 +         then {
129 +             let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
130 +             let wyplata = (balansUSDN - a)
131 + [IntegerEntry("WLambertvalue", (wyplata / 100))]
132 +             }
133 +         else {
134 +             let k = (balansUSDN - nowakwotarownowagi)
135 +             let a = (nowypoziom - dzielenie(nowypoziom, exp(dzielenie(k, nowabaza))))
136 +             let wyplata = ((balansUSDN - nowakwotarownowagi) - a)
137 + [IntegerEntry("WLambertvalue", (wyplata / 100))]
138 +             }
139 +     }
114 140  
115 141  
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 - func InwestycjaUSDN (wplata) = if (((balansUSDT + wplata) > balansUSDN))
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 +         let nowypoziomrownowagi = (nowabaza / 18)
104 +         let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
103 105  [IntegerEntry("WLambertvalue", (wyplata / 100))]
104 106          }
105 107      else {
106 -         let b1 = (balansUSDT + wplata)
107 -         let b2 = balansUSDN
108 +         let b1 = (balansUSDN + wplata)
109 +         let b2 = balansUSDT
108 110          let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
109 111          let W0 = LambertW0(a)
110 112          let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
111 113          let wyplata = ((nowabaza - baza) / 9)
114 +         let nowypoziomrownowagi = (nowabaza / 18)
115 +         let nowypoziom = (balansUSDT - nowypoziomrownowagi)
112 116  [IntegerEntry("WLambertvalue", (wyplata / 100))]
113 117          }
118 + 
119 + 
120 + 
121 + @Callable(i)
122 + func WyplataUSDNinnwestycji (kwota) = {
123 +     let poziomup = (poziom - baza)
124 +     let nowabaza = (baza - (kwota * 9))
125 +     let nowypoziom = (nowabaza + poziomup)
126 +     let nowakwotarownowagi = (nowabaza * 18)
127 +     if ((balansUSDT > balansUSDN))
128 +         then {
129 +             let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
130 +             let wyplata = (balansUSDN - a)
131 + [IntegerEntry("WLambertvalue", (wyplata / 100))]
132 +             }
133 +         else {
134 +             let k = (balansUSDN - nowakwotarownowagi)
135 +             let a = (nowypoziom - dzielenie(nowypoziom, exp(dzielenie(k, nowabaza))))
136 +             let wyplata = ((balansUSDN - nowakwotarownowagi) - a)
137 + [IntegerEntry("WLambertvalue", (wyplata / 100))]
138 +             }
139 +     }
114 140  
115 141

Old	New		Differences
92	92
93	93
94	94		@Callable(i)
95		-	func InwestycjaUSDN (wplata) = if (((~~balansUSDT~~ + wplata) > ~~balansUSDN~~))
	95	+	func InwestycjaUSDN (wplata) = if (((balansUSDN + wplata) > balansUSDT))
96	96		then {
97	97		let b1 = balansUSDT
98	98		let b2 = (balansUSDN + wplata)

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	+	let nowypoziomrownowagi = (nowabaza / 18)
	104	+	let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
103	105		[IntegerEntry("WLambertvalue", (wyplata / 100))]
104	106		}
105	107		else {
106		-	let b1 = (~~balansUSDT~~ + wplata)
107		-	let b2 = ~~balansUSDN~~
	108	+	let b1 = (balansUSDN + wplata)
	109	+	let b2 = balansUSDT
108	110		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
109	111		let W0 = LambertW0(a)
110	112		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
111	113		let wyplata = ((nowabaza - baza) / 9)
	114	+	let nowypoziomrownowagi = (nowabaza / 18)
	115	+	let nowypoziom = (balansUSDT - nowypoziomrownowagi)
112	116		[IntegerEntry("WLambertvalue", (wyplata / 100))]
113	117		}
	118	+
	119	+
	120	+
	121	+	@Callable(i)
	122	+	func WyplataUSDNinnwestycji (kwota) = {
	123	+	let poziomup = (poziom - baza)
	124	+	let nowabaza = (baza - (kwota * 9))
	125	+	let nowypoziom = (nowabaza + poziomup)
	126	+	let nowakwotarownowagi = (nowabaza * 18)
	127	+	if ((balansUSDT > balansUSDN))
	128	+	then {
	129	+	let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
	130	+	let wyplata = (balansUSDN - a)
	131	+	[IntegerEntry("WLambertvalue", (wyplata / 100))]
	132	+	}
	133	+	else {
	134	+	let k = (balansUSDN - nowakwotarownowagi)
	135	+	let a = (nowypoziom - dzielenie(nowypoziom, exp(dzielenie(k, nowabaza))))
	136	+	let wyplata = ((balansUSDN - nowakwotarownowagi) - a)
	137	+	[IntegerEntry("WLambertvalue", (wyplata / 100))]
	138	+	}
	139	+	}
114	140
115	141

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		-	func InwestycjaUSDN (wplata) = if (((~~balansUSDT~~ + wplata) > ~~balansUSDN~~))
	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	+	let nowypoziomrownowagi = (nowabaza / 18)
	104	+	let nowypoziom = ((balansUSDN + wplata) - nowypoziomrownowagi)
103	105		[IntegerEntry("WLambertvalue", (wyplata / 100))]
104	106		}
105	107		else {
106		-	let b1 = (~~balansUSDT~~ + wplata)
107		-	let b2 = ~~balansUSDN~~
	108	+	let b1 = (balansUSDN + wplata)
	109	+	let b2 = balansUSDT
108	110		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
109	111		let W0 = LambertW0(a)
110	112		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
111	113		let wyplata = ((nowabaza - baza) / 9)
	114	+	let nowypoziomrownowagi = (nowabaza / 18)
	115	+	let nowypoziom = (balansUSDT - nowypoziomrownowagi)
112	116		[IntegerEntry("WLambertvalue", (wyplata / 100))]
113	117		}
	118	+
	119	+
	120	+
	121	+	@Callable(i)
	122	+	func WyplataUSDNinnwestycji (kwota) = {
	123	+	let poziomup = (poziom - baza)
	124	+	let nowabaza = (baza - (kwota * 9))
	125	+	let nowypoziom = (nowabaza + poziomup)
	126	+	let nowakwotarownowagi = (nowabaza * 18)
	127	+	if ((balansUSDT > balansUSDN))
	128	+	then {
	129	+	let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
	130	+	let wyplata = (balansUSDN - a)
	131	+	[IntegerEntry("WLambertvalue", (wyplata / 100))]
	132	+	}
	133	+	else {
	134	+	let k = (balansUSDN - nowakwotarownowagi)
	135	+	let a = (nowypoziom - dzielenie(nowypoziom, exp(dzielenie(k, nowabaza))))
	136	+	let wyplata = ((balansUSDN - nowakwotarownowagi) - a)
	137	+	[IntegerEntry("WLambertvalue", (wyplata / 100))]
	138	+	}
	139	+	}
114	140
115	141

github/deemru/w8io/c3f4982 
69.50 ms ◑