w8 · tx · FHz···HDh

tx · FHzUKfWjEXyLAx7D2uDjiyWXK89mJEYofWSZ3rmbeHDh

3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2:  -0.01400000 Waves

2020.04.06 11:53 [942150] smart account 3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FHzUKfWjEXyLAx7D2uDjiyWXK89mJEYofWSZ3rmbeHDh",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1586163120116,
    "version": 1,
    "sender": "3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2",
    "senderPublicKey": "GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt",
    "proofs": [
        "2Ux2HZFEKUQCeRyV6nZiuWeZ97faNq5omf6PwueB4G8oPZTFYAmPo7Gry4DZoXXFsRRgNuPLtpu1uesjEscKCcdz"
    ],
    "script": "base64:AAIDAAAAAAAAACMIARIECgIICBIICgYICAgBAQgSCQoHCAgICAEICBIECgIIAQAAADgAAAAAB2JCaXRDTzIBAAAAIB/+20Whi2vRcLDiyL6zBUKemnAWGkbChWDkhQemNVeLAAAAAAhzdGFydFF0eQAAAAAAAB6EgAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIOT5kr0qxAUdVllbsg32nwnU0gQ806lA/C0Ix5M0fVkpAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVQmXeqpNBOU0gXTRoLnFygaPj7BjtrRIP0AAAAAAmVBCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUyvc7Pucv0VXiD634RbMs3vuN0A1Fa31vAAAAAANpZ3YAAAAAAAAAABIAAAAAA2NQQgAAAAAAAAAAWAAAAAADdUlQAAAAAAAAAAAFAAAAAANwSVAAAAAAAAAAAAoAAAAAA3NJUAAAAAAAAAAAAQAAAAADZUlQAAAAAAAAAAABAAAAAAJwQQkBAAAAB0FkZHJlc3MAAAABAQAAABoBVMr3Oz7nL9FV4g+t+EWzLN77jdANRWt9bwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAAAZBIHkgRzoJAAJYAAAAAQkAAfcAAAABCQABmwAAAAEJAAEsAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAGX1AgU0FDAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAADmdldEtleVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkAASwAAAACBQAAAAhzdXBwbGllcgIAAAAGX1AgU0FDAQAAABBnZXRWYWx1ZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAADWdldEtleVByb2plY3QAAAABAAAAAnBBCQABLAAAAAIFAAAAAnBBAgAAAAlfQS1QcmVJQ08BAAAAD2dldFZhbHVlUHJvamVjdAAAAAEAAAACcEEJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAACcEEBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtAgAAAApPcmRlcl/ihJY6AQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABAAAABGl0ZW0CAAAACVVzZXJOYW1lOgEAAAAQZ2V0VmFsdWVJdGVtVXNlcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABAAAABGl0ZW0CAAAACVVzZXJQYWlzOgEAAAATZ2V0VmFsdWVVc2VyQ291bnRyeQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQUAAAAEaXRlbQEAAAAMZ2V0S2V5SXRlbVVEAAAAAQAAAARpdGVtAgAAAANVRDoBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAF1NlbGxlcl9CYWxhbmNlLF9hQml0Q08yAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAIZ2V0S2V5VUkAAAABAAAABGl0ZW0CAAAACFVJLF93dnM6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlVQkkAAAABAAAABGl0ZW0CAAAADFVCSSxfQml0Q08yOgEAAAALZ2V0VmFsdWVVQkkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlVQkkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAGUEksXyU6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAGU0ksXyU6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlFSQAAAAEAAAACZUECAAAABkVJLF8lOgEAAAAKZ2V0VmFsdWVFSQAAAAEAAAACZUEJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlFSQAAAAEFAAAAAmVBAQAAABJnZXRLZXlJdGVtVXNlckRhdGEAAAABAAAABGl0ZW0CAAAADFVzZXJDb3VudHJ5OgEAAAAWZ2V0S2V5SXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQIAAAAQVXNlckRpc2NvdW50LCAlOgEAAAAYZ2V0VmFsdWVJdGVtRGlzY291bnRVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbURpc2NvdW50VXNlcgAAAAEFAAAABGl0ZW0BAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0CAAAAEk9yZGVyX3F0eSxfdG9rZW5zOgEAAAAYZ2V0VmFsdWVJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAWQmFsYW5jZS9TYWxkbywgdG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAGX3dhdmVzAQAAABlnZXRWYWx1ZUl0ZW1QcmljZVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAYU3VwcGxpZXJEaXNjb3VudCwgbWF4XyU6AQAAABxnZXRWYWx1ZUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEAAAAEaXRlbQIAAAANZGVzY3JpcHRpb246IAAAAAQAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHYkJpdENPMgkAAAIAAAABAgAAAC5Vc2UgYkJpdENPMiB0b2tlbnMgb25seSBmb3IgdGhlIHdhbGxldCBkZXBvc2l0BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB1ObyBoYXkgQml0Q08yIGluIHlvdXIgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAEEFkZFN1cHBsaWVyVG9rZW4AAAAGAAAABXRpdGxlAAAABG5hbWUAAAAHY291bnRyeQAAAAlwcmVJY29RdHkAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAxzdXBwbGllckRhdGEEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAwkAAGcAAAACAAAAAAAAAAAABQAAAAlwcmVJY29RdHkJAAACAAAAAQIAAAAfU29ycnksIGluc3VmZmljaWVudCB0b2tlbiBvZmZlcgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAApTdXBwbGllcjpfCQEAAAAOZ2V0S2V5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAdUaXRsZTpfBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANUHJvamVjdE5hbWU6XwUAAAAIc3VwcGxpZXIFAAAABG5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAJQ291bnRyeTpfBQAAAAhzdXBwbGllcgUAAAAHY291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACXByZUljb1F0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA9Ob21Ub2tlblByaWNlOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABoAAAAAgUAAAAIbm9tUHJpY2UFAAAAA3d2cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABdNYXhfRGVzY3VlbnRvX29mcmVjaWRvOgkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAQc3VwcGxpZXJEaXNjb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA1EZXZlbG9wbWVudDpfCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAcAAAAEaXRlbQAAAAh1c2VyTmFtZQAAAAt1c2VyQ291bnRyeQAAAAJ1RAAAAAt0b3RhbEFtb3VudAAAAAJwQQAAAAJlQQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAALXlvdSBjYW4gYWRxdWlyZSBQcm9kdWN0cyBvbmx5IGJ5IFdhdmVzIHRva2VucwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50CQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1QkkJAABpAAAAAgUAAAACdUkFAAAAA2NQQgQAAAACcEkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADcElQAAAAAAAAAABkBAAAAAJlSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAAAAAAAAAAAGQEAAAAA2VCSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAAAAAAAAAAAGQEAAAAAnNJCQAAZQAAAAIJAABlAAAAAgUAAAALdG90YWxBbW91bnQFAAAAAnBJBQAAAAJlSQQAAAADc0JJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NJUAAAAAAAAAAAZAMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0FAAAAC3VzZXJDb3VudHJ5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5SXRlbVVEAAAAAQUAAAAEaXRlbQUAAAACdUQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAE1BheW1lbnRfYW1vdW50LF93dnMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZJbXAsICUFAAAAA2lndgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAJU1R0bCwgd3ZzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALQ1AgMSBCLCB3dnMJAABoAAAAAgUAAAADY1BCAAAAAAAAD0JACQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtBQAAAAJ1SQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAADVUJJBQAAAAN1QkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAAnBJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5RUkAAAABBQAAAAJlQQUAAAACZUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABUVjU3lzBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAljb25maXJtZWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZTQkk6IGIFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAAnVJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAACcEEFAAAAAnBJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAAJlQQUAAAACZUkFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAAeQ2FuJ3Qgd2l0aGRyYXcgbmVnYXRpdmUgYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAhTm90IGVub3VnaHQgL2luc3VmaWNpZW50ZSBiYWxhbmNlCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEaXRlbQUAAAAJbmV3QW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAAB2JCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAAC093bmVyUHViS2V5AwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBgkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgftDcsd",
    "chainId": 84,
    "height": 942150,
    "spentComplexity": 0
}

View: original | compacted
Prev: DJvvuHxLPKwMEQrVWAXPXLcFZVM2tKZvbh9orSbaveVj
Next: 4TvDnoQNsDs2E2Pn2h6Ua77Sv5X4CjEXvZu1m5KufuMu

Diff: 
Old New Differences
16 16  let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17 17  
18 18  let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
19 + 
20 + let eA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19 21  
20 22  let igv = 18
21 23  
237 239                  then throw("Payment Amount can't be less than item Purchase Order")
238 240                  else if ((pmt.amount > totalAmount))
239 241                      then throw("Payment Amount can't be higher than item Purchase Order")
240 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(addressFromStringValue(supplier), sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
241 243              }
242 244      }
243 245  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let bBitCO2 = base58'39u32sVJU2K5UJoPRQasrNKRHbDZhtRzuHYc9tdFozn6'
5 5  
6 6  let startQty = 2000000
7 7  
8 8  let nomPrice = 1
9 9  
10 10  let wvs = 100000000
11 11  
12 12  let supplierDiscount = 12
13 13  
14 14  let NONE = "none"
15 15  
16 16  let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17 17  
18 18  let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
19 + 
20 + let eA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19 21  
20 22  let igv = 18
21 23  
22 24  let cPB = 88
23 25  
24 26  let uIP = 5
25 27  
26 28  let pIP = 10
27 29  
28 30  let sIP = 1
29 31  
30 32  let eIP = 1
31 33  
32 34  let pA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
33 35  
34 36  func getNumberByKey (key) = {
35 37      let num =     match getInteger(this, key) {
36 38          case a: Int => 
37 39              a
38 40          case _ => 
39 41              0
40 42      }
41 43      num
42 44      }
43 45  
44 46  
45 47  func getStrByKey (key) = {
46 48      let str =     match getString(this, key) {
47 49          case a: String => 
48 50              a
49 51          case _ => 
50 52              NONE
51 53      }
52 54      str
53 55      }
54 56  
55 57  
56 58  func getKeyItem (supplier,title) = ("A y G:" + toBase58String(sha256(toBytes((supplier + title)))))
57 59  
58 60  
59 61  func getKeyItemSupplier (item) = (item + "_P SAC")
60 62  
61 63  
62 64  func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
63 65  
64 66  
65 67  func getKeySupplier (supplier) = (supplier + "_P SAC")
66 68  
67 69  
68 70  func getValueSupplier (supplier) = getStrByKey(getKeySupplier(supplier))
69 71  
70 72  
71 73  func getKeyProject (pA) = (pA + "_A-PreICO")
72 74  
73 75  
74 76  func getValueProject (pA) = getStrByKey(getKeyProject(pA))
75 77  
76 78  
77 79  func getKeyUserItemCounter (user,item) = "Order_№:"
78 80  
79 81  
80 82  func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
81 83  
82 84  
83 85  func getKeyItemUser (item) = "UserName:"
84 86  
85 87  
86 88  func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
87 89  
88 90  
89 91  func getKeyUserCountry (item) = "UserPais:"
90 92  
91 93  
92 94  func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
93 95  
94 96  
95 97  func getKeyItemUD (item) = "UD:"
96 98  
97 99  
98 100  func getKeyBalanceSupplier (supplier) = "Seller_Balance,_aBitCO2"
99 101  
100 102  
101 103  func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
102 104  
103 105  
104 106  func getKeyUI (item) = "UI,_wvs:"
105 107  
106 108  
107 109  func getValueUI (item) = getNumberByKey(getKeyUI(item))
108 110  
109 111  
110 112  func getKeyUBI (item) = "UBI,_BitCO2:"
111 113  
112 114  
113 115  func getValueUBI (item) = getNumberByKey(getKeyUBI(item))
114 116  
115 117  
116 118  func getKeyPI (item) = "PI,_%:"
117 119  
118 120  
119 121  func getValuePI (item) = getNumberByKey(getKeyPI(item))
120 122  
121 123  
122 124  func getKeySI (item) = "SI,_%:"
123 125  
124 126  
125 127  func getValueSI (item) = getNumberByKey(getKeySI(item))
126 128  
127 129  
128 130  func getKeyEI (eA) = "EI,_%:"
129 131  
130 132  
131 133  func getValueEI (eA) = getNumberByKey(getKeyEI(eA))
132 134  
133 135  
134 136  func getKeyItemUserData (item) = "UserCountry:"
135 137  
136 138  
137 139  func getKeyItemDiscountUser (item) = "UserDiscount, %:"
138 140  
139 141  
140 142  func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
141 143  
142 144  
143 145  func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
144 146  
145 147  
146 148  func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
147 149  
148 150  
149 151  func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
150 152  
151 153  
152 154  func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
153 155  
154 156  
155 157  func getKeyItemPriceSupplier (item) = "_waves"
156 158  
157 159  
158 160  func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
159 161  
160 162  
161 163  func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
162 164  
163 165  
164 166  func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
165 167  
166 168  
167 169  func getKeyItemData (item) = "description: "
168 170  
169 171  
170 172  @Callable(i)
171 173  func deposit (title,supplierData) = {
172 174      let pmt = extract(i.payment)
173 175      if ((pmt.assetId != bBitCO2))
174 176          then throw("Use bBitCO2 tokens only for the wallet deposit")
175 177          else {
176 178              let supplier = toBase58String(i.caller.bytes)
177 179              let currentAmount =             match getInteger(this, supplier) {
178 180                  case a: Int => 
179 181                      a
180 182                  case _ => 
181 183                      startQty
182 184              }
183 185              let newAmount = (currentAmount + pmt.amount)
184 186              if ((0 >= newAmount))
185 187                  then throw("No hay BitCO2 in your balance")
186 188                  else WriteSet([DataEntry(supplier, newAmount)])
187 189              }
188 190      }
189 191  
190 192  
191 193  
192 194  @Callable(i)
193 195  func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
194 196      let supplier = toBase58String(i.caller.bytes)
195 197      let item = getKeyItem(supplier, title)
196 198      if ((0 >= preIcoQty))
197 199          then throw("Sorry, insufficient token offer")
198 200          else WriteSet([DataEntry(("Supplier:_" + getKeySupplier(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
199 201      }
200 202  
201 203  
202 204  
203 205  @Callable(i)
204 206  func purchaseGTS (item,userName,userCountry,uD,totalAmount,pA,eA) = {
205 207      let pmt = extract(i.payment)
206 208      if (isDefined(pmt.assetId))
207 209          then throw("you can adquire Products only by Waves tokens")
208 210          else {
209 211              let supplier =             match getString(this, getKeyItemSupplier(item)) {
210 212                  case a: String => 
211 213                      a
212 214                  case _ => 
213 215                      NONE
214 216              }
215 217              let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
216 218                  case a: Int => 
217 219                      a
218 220                  case _ => 
219 221                      startQty
220 222              }
221 223              let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
222 224                  case a: Int => 
223 225                      a
224 226                  case _ => 
225 227                      0
226 228              }
227 229              let userAddress = toBase58String(i.caller.bytes)
228 230              let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229 231              let uI = ((subTotal * uIP) / 100)
230 232              let uBI = (uI / cPB)
231 233              let pI = ((subTotal * pIP) / 100)
232 234              let eI = ((subTotal * eIP) / 100)
233 235              let eBI = ((subTotal * eIP) / 100)
234 236              let sI = ((totalAmount - pI) - eI)
235 237              let sBI = ((subTotal * sIP) / 100)
236 238              if ((totalAmount > pmt.amount))
237 239                  then throw("Payment Amount can't be less than item Purchase Order")
238 240                  else if ((pmt.amount > totalAmount))
239 241                      then throw("Payment Amount can't be higher than item Purchase Order")
240 -                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(addressFromStringValue(supplier), sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
242 +                     else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
241 243              }
242 244      }
243 245  
244 246  
245 247  
246 248  @Callable(i)
247 249  func withdraw (item,amount) = {
248 250      let userAddress = toBase58String(i.caller.bytes)
249 251      let supplier =     match getString(this, getKeyItemSupplier(item)) {
250 252          case a: String => 
251 253              a
252 254          case _ => 
253 255              NONE
254 256      }
255 257      let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
256 258          case a: Int => 
257 259              a
258 260          case _ => 
259 261              startQty
260 262      }
261 263      let newAmount = (preIcoQty - amount)
262 264      if ((0 > amount))
263 265          then throw("Can't withdraw negative amount")
264 266          else if ((0 >= newAmount))
265 267              then throw("Not enought /insuficiente balance")
266 268              else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, bBitCO2)]))
267 269      }
268 270  
269 271  
270 272  @Verifier(tx)
271 273  func verify () = match tx {
272 274      case t: SetScriptTransaction => 
273 275          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
274 276      case d: ReissueTransaction|DataTransaction => 
275 277          true
276 278      case tx: TransferTransaction => 
277 279          true
278 280      case tx: ExchangeTransaction => 
279 281          true
280 282      case _ => 
281 283          false
282 284  }
283 285

Old	New		Differences
16	16		let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17	17
18	18		let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
	19	+
	20	+	let eA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19	21
20	22		let igv = 18
21	23

237	239		then throw("Payment Amount can't be less than item Purchase Order")
238	240		else if ((pmt.amount > totalAmount))
239	241		then throw("Payment Amount can't be higher than item Purchase Order")
240		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(~~addressFromStringValue(supplier)~~, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
241	243		}
242	244		}
243	245

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let bBitCO2 = base58'39u32sVJU2K5UJoPRQasrNKRHbDZhtRzuHYc9tdFozn6'
5	5
6	6		let startQty = 2000000
7	7
8	8		let nomPrice = 1
9	9
10	10		let wvs = 100000000
11	11
12	12		let supplierDiscount = 12
13	13
14	14		let NONE = "none"
15	15
16	16		let OwnerPubKey = base58'GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt'
17	17
18	18		let issuer = Address(base58'3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2')
	19	+
	20	+	let eA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19	21
20	22		let igv = 18
21	23
22	24		let cPB = 88
23	25
24	26		let uIP = 5
25	27
26	28		let pIP = 10
27	29
28	30		let sIP = 1
29	31
30	32		let eIP = 1
31	33
32	34		let pA = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
33	35
34	36		func getNumberByKey (key) = {
35	37		let num = match getInteger(this, key) {
36	38		case a: Int =>
37	39		a
38	40		case _ =>
39	41		0
40	42		}
41	43		num
42	44		}
43	45
44	46
45	47		func getStrByKey (key) = {
46	48		let str = match getString(this, key) {
47	49		case a: String =>
48	50		a
49	51		case _ =>
50	52		NONE
51	53		}
52	54		str
53	55		}
54	56
55	57
56	58		func getKeyItem (supplier,title) = ("A y G:" + toBase58String(sha256(toBytes((supplier + title)))))
57	59
58	60
59	61		func getKeyItemSupplier (item) = (item + "_P SAC")
60	62
61	63
62	64		func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
63	65
64	66
65	67		func getKeySupplier (supplier) = (supplier + "_P SAC")
66	68
67	69
68	70		func getValueSupplier (supplier) = getStrByKey(getKeySupplier(supplier))
69	71
70	72
71	73		func getKeyProject (pA) = (pA + "_A-PreICO")
72	74
73	75
74	76		func getValueProject (pA) = getStrByKey(getKeyProject(pA))
75	77
76	78
77	79		func getKeyUserItemCounter (user,item) = "Order_№:"
78	80
79	81
80	82		func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
81	83
82	84
83	85		func getKeyItemUser (item) = "UserName:"
84	86
85	87
86	88		func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
87	89
88	90
89	91		func getKeyUserCountry (item) = "UserPais:"
90	92
91	93
92	94		func getValueUserCountry (item) = getStrByKey(getKeyUserCountry(item))
93	95
94	96
95	97		func getKeyItemUD (item) = "UD:"
96	98
97	99
98	100		func getKeyBalanceSupplier (supplier) = "Seller_Balance,_aBitCO2"
99	101
100	102
101	103		func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
102	104
103	105
104	106		func getKeyUI (item) = "UI,_wvs:"
105	107
106	108
107	109		func getValueUI (item) = getNumberByKey(getKeyUI(item))
108	110
109	111
110	112		func getKeyUBI (item) = "UBI,_BitCO2:"
111	113
112	114
113	115		func getValueUBI (item) = getNumberByKey(getKeyUBI(item))
114	116
115	117
116	118		func getKeyPI (item) = "PI,_%:"
117	119
118	120
119	121		func getValuePI (item) = getNumberByKey(getKeyPI(item))
120	122
121	123
122	124		func getKeySI (item) = "SI,_%:"
123	125
124	126
125	127		func getValueSI (item) = getNumberByKey(getKeySI(item))
126	128
127	129
128	130		func getKeyEI (eA) = "EI,_%:"
129	131
130	132
131	133		func getValueEI (eA) = getNumberByKey(getKeyEI(eA))
132	134
133	135
134	136		func getKeyItemUserData (item) = "UserCountry:"
135	137
136	138
137	139		func getKeyItemDiscountUser (item) = "UserDiscount, %:"
138	140
139	141
140	142		func getValueItemDiscountUser (item) = getNumberByKey(getKeyItemDiscountUser(item))
141	143
142	144
143	145		func getKeyItemUserOrderQty (item) = "Order_qty,_tokens:"
144	146
145	147
146	148		func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
147	149
148	150
149	151		func getKeyBalanceQtySupplier (item) = "Balance/Saldo, tokens:"
150	152
151	153
152	154		func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
153	155
154	156
155	157		func getKeyItemPriceSupplier (item) = "_waves"
156	158
157	159
158	160		func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
159	161
160	162
161	163		func getKeyItemDiscountSupplier (item) = "SupplierDiscount, max_%:"
162	164
163	165
164	166		func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
165	167
166	168
167	169		func getKeyItemData (item) = "description: "
168	170
169	171
170	172		@Callable(i)
171	173		func deposit (title,supplierData) = {
172	174		let pmt = extract(i.payment)
173	175		if ((pmt.assetId != bBitCO2))
174	176		then throw("Use bBitCO2 tokens only for the wallet deposit")
175	177		else {
176	178		let supplier = toBase58String(i.caller.bytes)
177	179		let currentAmount = match getInteger(this, supplier) {
178	180		case a: Int =>
179	181		a
180	182		case _ =>
181	183		startQty
182	184		}
183	185		let newAmount = (currentAmount + pmt.amount)
184	186		if ((0 >= newAmount))
185	187		then throw("No hay BitCO2 in your balance")
186	188		else WriteSet([DataEntry(supplier, newAmount)])
187	189		}
188	190		}
189	191
190	192
191	193
192	194		@Callable(i)
193	195		func AddSupplierToken (title,name,country,preIcoQty,supplierDiscount,supplierData) = {
194	196		let supplier = toBase58String(i.caller.bytes)
195	197		let item = getKeyItem(supplier, title)
196	198		if ((0 >= preIcoQty))
197	199		then throw("Sorry, insufficient token offer")
198	200		else WriteSet([DataEntry(("Supplier:_" + getKeySupplier(item)), supplier), DataEntry(("Title:_" + supplier), title), DataEntry(("ProjectName:_" + supplier), name), DataEntry(("Country:_" + supplier), country), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("NomTokenPrice:_" + getKeyItemPriceSupplier(item)), (nomPrice * wvs)), DataEntry(("Max_Descuento_ofrecido:" + getKeyItemDiscountSupplier(item)), supplierDiscount), DataEntry(("Development:_" + getKeyItemData(item)), supplierData)])
199	201		}
200	202
201	203
202	204
203	205		@Callable(i)
204	206		func purchaseGTS (item,userName,userCountry,uD,totalAmount,pA,eA) = {
205	207		let pmt = extract(i.payment)
206	208		if (isDefined(pmt.assetId))
207	209		then throw("you can adquire Products only by Waves tokens")
208	210		else {
209	211		let supplier = match getString(this, getKeyItemSupplier(item)) {
210	212		case a: String =>
211	213		a
212	214		case _ =>
213	215		NONE
214	216		}
215	217		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
216	218		case a: Int =>
217	219		a
218	220		case _ =>
219	221		startQty
220	222		}
221	223		let balanceSupplier = match getInteger(this, getKeyBalanceSupplier(supplier)) {
222	224		case a: Int =>
223	225		a
224	226		case _ =>
225	227		0
226	228		}
227	229		let userAddress = toBase58String(i.caller.bytes)
228	230		let subTotal = (totalAmount - ((igv * totalAmount) / 100))
229	231		let uI = ((subTotal * uIP) / 100)
230	232		let uBI = (uI / cPB)
231	233		let pI = ((subTotal * pIP) / 100)
232	234		let eI = ((subTotal * eIP) / 100)
233	235		let eBI = ((subTotal * eIP) / 100)
234	236		let sI = ((totalAmount - pI) - eI)
235	237		let sBI = ((subTotal * sIP) / 100)
236	238		if ((totalAmount > pmt.amount))
237	239		then throw("Payment Amount can't be less than item Purchase Order")
238	240		else if ((pmt.amount > totalAmount))
239	241		then throw("Payment Amount can't be higher than item Purchase Order")
240		-	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(~~addressFromStringValue(supplier)~~, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
	242	+	else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), userName), DataEntry(getKeyUserCountry(item), userCountry), DataEntry(getKeyItemUD(item), uD), DataEntry("Payment_amount,_wvs", totalAmount), DataEntry("Imp, %", igv), DataEntry("STtl, wvs", subTotal), DataEntry("CP 1 B, wvs", (cPB * 1000000)), DataEntry(getKeyUI(item), uI), DataEntry("UBI", uBI), DataEntry(getKeyPI(item), pI), DataEntry(getKeyEI(eA), eI), DataEntry("EcSys", eBI), DataEntry(("Order_Status:_" + userAddress), "confirmed"), DataEntry(getKeySI(item), sI), DataEntry("SBI: b", sBI), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(i.caller, uI, unit), ScriptTransfer(addressFromStringValue(pA), pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(addressFromStringValue(eA), eI, unit)]))
241	243		}
242	244		}
243	245
244	246
245	247
246	248		@Callable(i)
247	249		func withdraw (item,amount) = {
248	250		let userAddress = toBase58String(i.caller.bytes)
249	251		let supplier = match getString(this, getKeyItemSupplier(item)) {
250	252		case a: String =>
251	253		a
252	254		case _ =>
253	255		NONE
254	256		}
255	257		let preIcoQty = match getInteger(this, getKeyBalanceQtySupplier(item)) {
256	258		case a: Int =>
257	259		a
258	260		case _ =>
259	261		startQty
260	262		}
261	263		let newAmount = (preIcoQty - amount)
262	264		if ((0 > amount))
263	265		then throw("Can't withdraw negative amount")
264	266		else if ((0 >= newAmount))
265	267		then throw("Not enought /insuficiente balance")
266	268		else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, bBitCO2)]))
267	269		}
268	270
269	271
270	272		@Verifier(tx)
271	273		func verify () = match tx {
272	274		case t: SetScriptTransaction =>
273	275		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
274	276		case d: ReissueTransaction\|DataTransaction =>
275	277		true
276	278		case tx: TransferTransaction =>
277	279		true
278	280		case tx: ExchangeTransaction =>
279	281		true
280	282		case _ =>
281	283		false
282	284		}
283	285

github/deemru/w8io/169f3d6 
82.32 ms ◑