w8 · tx · A5H···Ro4

tx · A5HmG4sfynK5yDjssDjaXR3YJ6bMaCQ1C4SQ3AqoVRo4

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.08 08:47 [1388812] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "A5HmG4sfynK5yDjssDjaXR3YJ6bMaCQ1C4SQ3AqoVRo4",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612763301454,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "4FWsbrwYed9uSpKEGTuUsvAZGM3CfXFNTsKpx8G5NhusJMsCLF8DVPMgLbrZ5VUo28zX6LQfzg2EuxrFP3yCt4ky"
    ],
    "script": "base64:AAIEAAAAAAAAAAwIAhIAEgASABIAEgAAAAARAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOa3dvdGFyb3dub3dhZ2kAAAAABGJhemEJAABoAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAABIAAAAAB2VuYWJsZWQJAAQaAAAAAgUAAAAEdGhpcwIAAAAHZW5hYmxlZAAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAABFVTRFQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAARVU0ROAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAGUHJvdG9uAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwAAAAAKYmFsYW5zVVNETgkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMFAAAABFVTRE4AAAAAAAAAAGQAAAAACmJhbGFuc1VTRFQJAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzBQAAAARVU0RUAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgUAAAABZQAAAAAAAAAACAUAAAABeAAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAAIbW5vemVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAAAF9eEAAQAAAAlkemllbGVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAF9eEABQAAAAF5AQAAAAZIYWxsZXkAAAACAAAAAXgAAAABdwQAAAAGd1RpbWVzCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAXcJAQAAAANleHAAAAABBQAAAAF3BQAAAAF4BAAAAA13UGx1c09uZVRpbWVzCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAX14QAJAQAAAANleHAAAAABBQAAAAF3AwkBAAAAAiE9AAAAAgUAAAAGd1RpbWVzAAAAAAAAAAAACQAAZQAAAAIFAAAAAXcJAQAAAAlkemllbGVuaWUAAAACBQAAAAZ3VGltZXMJAABlAAAAAgUAAAANd1BsdXNPbmVUaW1lcwkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAAC+vCAAUAAAAGd1RpbWVzCQAAZAAAAAIJAABoAAAAAgAAAAAAAAAAAgUAAAABdwAAAAAAC+vCAAUAAAABdwEAAAARY29udGludWVkZnJhY3Rpb24AAAABAAAAAXgJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAvrwgAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAAUJAABkAAAAAgAAAAAAEeGjAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAEQkAAGQAAAACAAAAAAA7msoACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAACFCQAAZAAAAAIAAAAAAGVT8QAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAB4cJAABkAAAAAgAAAAAAcT+zAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAM9BdwAAAAiWdO/3AAEAAAAJTGFtYmVydFcwAAAAAQAAAAF4CQEAAAAGSGFsbGV5AAAAAgUAAAABeAkBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQUAAAABeAAAAAUAAAABaQEAAAAQVVNEVG5hVVNETm5hVVNEVAAAAAAEAAAABm9wbGF0YQAAAAAAAAAAAAQAAAAMa3dvdGF3eW1pYW55CQAAawAAAAMJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAAZvcGxhdGEAAAAAAAAAAGQAAAAAAAAAAAEDCQEAAAACIT0AAAACBQAAAAdlbmFibGVkAAAAAAAAAAABCQAAAgAAAAECAAAAH0tvbnRyYWt0IHR5bWN6YXNvd28gd3nFgsSFY3pvbnkDCQEAAAABIQAAAAEDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAABFVTRFQGCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAABFVTRE4JAAACAAAAAQIAAAAVTmllb2JzxYJ1Z2l3YW55IGFzc2V0AwkBAAAAAiE9AAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAAIAAAABAgAAABpXeW1hZ2FuYSBqZWRuYSBwxYJhdG5vxZvEhwQAAAAGYmFsYW5zAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAARVU0RUBQAAAApiYWxhbnNVU0RUBQAAAApiYWxhbnNVU0ROBAAAAAZhc3NldEEDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAABFVTRFQFAAAABFVTRE4FAAAABFVTRFQEAAAABmFzc2V0QgMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAAEVVNEVAUAAAAEVVNEVAUAAAAEVVNETgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAAZiYWxhbnMDCQAAZwAAAAIFAAAABmJhbGFucwUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAAZhc3NldEEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQUAAAAGYXNzZXRCCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAQUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAABmJhbGFucwQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAGYmFsYW5zBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAAZhc3NldEEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQUAAAAGYXNzZXRCCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAgUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAAZhc3NldEEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQUAAAAGYXNzZXRCCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAwUAAAADbmlsAAAAAWkBAAAADklud2VzdHljamFVU0ROAAAAAAMJAQAAAAEhAAAAAQMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAAEVVNETgYJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAAEVVNEVAkAAAIAAAABAgAAADNEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRE4gbHViIFVTRFQEAAAABndwbGF0YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQEAAAAAmIxAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAARVU0ROAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAAKYmFsYW5zVVNEVAUAAAAKYmFsYW5zVVNEVAkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0ROBQAAAApiYWxhbnNVU0ROCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAACYjIDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAABFVTRE4DCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQUAAAAKYmFsYW5zVVNEVAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4JAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0ROBAAAAAZiYWxhbnMDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQFAAAABFVTRE4FAAAACmJhbGFuc1VTRE4FAAAACmJhbGFuc1VTRFQEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAAZiYWxhbnMFAAAABndwbGF0YQUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAAlcwBQAAAAJXMAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAABYQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAATbm93eXBvemlvbXJvd25vd2FnaQkABEwAAAACCQEAAAAHUmVpc3N1ZQAAAAMFAAAABlByb3RvbgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAAGUHJvdG9uBQAAAANuaWwAAAABaQEAAAAOSW53ZXN0eWNqYVVTRFQAAAAAAwkBAAAAAiE9AAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAAEVVNEVAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRFQEAAAABndwbGF0YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQEAAAAAmIxAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAAKYmFsYW5zVVNETgUAAAAKYmFsYW5zVVNETgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAmIyAwkAAGYAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQUAAAAKYmFsYW5zVVNETgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4EAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwUAAAAGUHJvdG9uCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAAZQcm90b24FAAAAA25pbAAAAAFpAQAAAAtXeXBsYXRhVVNETgAAAAADCQEAAAACIT0AAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBQAAAAZQcm90b24JAAACAAAAAQIAAAAdTW96ZXN6IHdwxYJhY2ljIHR5bGtvIHByb3RvbmEEAAAABWt3b3RhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAQAAAAIbm93YWJhemEJAABlAAAAAgUAAAAEYmF6YQkAAGgAAAACBQAAAAVrd290YQAAAAAAAAAACQQAAAASbm93YWt3b3Rhcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASAwkAAGYAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAACG5vd2FiYXphBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAJhMQUAAAABYQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAIbm93YWJhemEFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAARVU0ROCQAETAAAAAIJAQAAAARCdXJuAAAAAgUAAAAGUHJvdG9uCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAAA25pbAQAAAABawkAAGUAAAACBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQEAAAACm5vd3lwb3ppb20JAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAWsFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4JAABkAAAAAgkAAGUAAAACBQAAAApub3d5cG96aW9tBQAAAAhub3dhYmF6YQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACG5vd2FiYXphBQAAAAhub3dhYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAAEVVNETgkABEwAAAACCQEAAAAEQnVybgAAAAIFAAAABlByb3RvbggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwAAAABaQEAAAALV3lwbGF0YVVTRFQAAAAAAwkBAAAAAiE9AAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAUAAAAGUHJvdG9uCQAAAgAAAAECAAAAHU1vemVzeiB3cMWCYWNpYyB0eWxrbyBwcm90b25hBAAAAAVrd290YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQEAAAACG5vd2FiYXphCQAAZQAAAAIFAAAABGJhemEJAABoAAAAAgUAAAAFa3dvdGEAAAAAAAAAAAkEAAAAEm5vd2Frd290YXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgMJAABmAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAhub3dhYmF6YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAAAWEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAUAAAAEVVNEVAkABEwAAAACCQEAAAAEQnVybgAAAAIFAAAABlByb3RvbggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwEAAAAAWsJAABlAAAAAgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIJAABlAAAAAgUAAAAKbm93eXBvemlvbQUAAAAIbm93YWJhemEFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBQAAAARVU0RUCQAETAAAAAIJAQAAAARCdXJuAAAAAgUAAAAGUHJvdG9uCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADQFAAAAA25pbAAAAACY4jwh",
    "height": 1388812,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: BqH42Fx5gUByuHUyp94XRsveV4utHRs5qJxvfdJEBjSG
Next: EiKCn2yyPdx8fBodEZN327jJfhRU2tnVfyr8cjShyuRz

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

Old	New		Differences
50	50
51	51		@Callable(i)
52	52		func USDTnaUSDNnaUSDT () = {
53		-	let oplata = ~~fraction(i.payments[~~0~~].amount, 4, 10000)~~
	53	+	let oplata = 0
54	54		let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
55	55		if ((enabled != 1))
56	56		then throw("Kontrakt tymczasowo wyłączony")

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

github/deemru/w8io/169f3d6 
55.01 ms ◑