w8 · tx · 4Tv···uMu

tx · 4TvDnoQNsDs2E2Pn2h6Ua77Sv5X4CjEXvZu1m5KufuMu

3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2:  -0.01400000 Waves

2020.04.06 11:54 [942151] smart account 3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4TvDnoQNsDs2E2Pn2h6Ua77Sv5X4CjEXvZu1m5KufuMu",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1586163250136,
    "version": 1,
    "sender": "3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2",
    "senderPublicKey": "GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt",
    "proofs": [
        "96euVVxt72GRPWh731NpNRi19BFzRFvkPZL3vmZEcJ1HAyYnqQ2hEJEGpkgKoyZwZm9XVHzcFmMJxqxHyv1MZdR"
    ],
    "script": "base64:AAIDAAAAAAAAACMIARIECgIICBIICgYICAgBAQgSCQoHCAgICAEICBIECgIIAQAAADgAAAAAB2JCaXRDTzIBAAAAIB/+20Whi2vRcLDiyL6zBUKemnAWGkbChWDkhQemNVeLAAAAAAhzdGFydFF0eQAAAAAAAB6EgAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIOT5kr0qxAUdVllbsg32nwnU0gQ806lA/C0Ix5M0fVkpAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVQmXeqpNBOU0gXTRoLnFygaPj7BjtrRIP0AAAAAAmVBCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUyvc7Pucv0VXiD634RbMs3vuN0A1Fa31vAAAAAANpZ3YAAAAAAAAAABIAAAAAA2NQQgAAAAAAAAAAWAAAAAADdUlQAAAAAAAAAAAFAAAAAANwSVAAAAAAAAAAAAoAAAAAA3NJUAAAAAAAAAAAAQAAAAADZUlQAAAAAAAAAAABAAAAAAJwQQkBAAAAB0FkZHJlc3MAAAABAQAAABoBVMr3Oz7nL9FV4g+t+EWzLN77jdANRWt9bwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAAAZBIHkgRzoJAAJYAAAAAQkAAfcAAAABCQABmwAAAAEJAAEsAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAGX1AgU0FDAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAADmdldEtleVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkAASwAAAACBQAAAAhzdXBwbGllcgIAAAAGX1AgU0FDAQAAABBnZXRWYWx1ZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAADWdldEtleVByb2plY3QAAAABAAAAAnBBCQABLAAAAAIFAAAAAnBBAgAAAAlfQS1QcmVJQ08BAAAAD2dldFZhbHVlUHJvamVjdAAAAAEAAAACcEEJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQUAAAACcEEBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtAgAAAApPcmRlcl/ihJY6AQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABAAAABGl0ZW0CAAAACVVzZXJOYW1lOgEAAAAQZ2V0VmFsdWVJdGVtVXNlcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABAAAABGl0ZW0CAAAACVVzZXJQYWlzOgEAAAATZ2V0VmFsdWVVc2VyQ291bnRyeQAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQUAAAAEaXRlbQEAAAAMZ2V0S2V5SXRlbVVEAAAAAQAAAARpdGVtAgAAAANVRDoBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAF1NlbGxlcl9CYWxhbmNlLF9hQml0Q08yAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgEAAAAIZ2V0S2V5VUkAAAABAAAABGl0ZW0CAAAACFVJLF93dnM6AQAAAApnZXRWYWx1ZVVJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtAQAAAAlnZXRLZXlVQkkAAAABAAAABGl0ZW0CAAAADFVCSSxfQml0Q08yOgEAAAALZ2V0VmFsdWVVQkkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAlnZXRLZXlVQkkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlQSQAAAAEAAAAEaXRlbQIAAAAGUEksXyU6AQAAAApnZXRWYWx1ZVBJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlTSQAAAAEAAAAEaXRlbQIAAAAGU0ksXyU6AQAAAApnZXRWYWx1ZVNJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtAQAAAAhnZXRLZXlFSQAAAAEAAAACZUECAAAABkVJLF8lOgEAAAAKZ2V0VmFsdWVFSQAAAAEAAAACZUEJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAAhnZXRLZXlFSQAAAAEFAAAAAmVBAQAAABJnZXRLZXlJdGVtVXNlckRhdGEAAAABAAAABGl0ZW0CAAAADFVzZXJDb3VudHJ5OgEAAAAWZ2V0S2V5SXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQIAAAAQVXNlckRpc2NvdW50LCAlOgEAAAAYZ2V0VmFsdWVJdGVtRGlzY291bnRVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbURpc2NvdW50VXNlcgAAAAEFAAAABGl0ZW0BAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0CAAAAEk9yZGVyX3F0eSxfdG9rZW5zOgEAAAAYZ2V0VmFsdWVJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAWQmFsYW5jZS9TYWxkbywgdG9rZW5zOgEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAGX3dhdmVzAQAAABlnZXRWYWx1ZUl0ZW1QcmljZVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAYU3VwcGxpZXJEaXNjb3VudCwgbWF4XyU6AQAAABxnZXRWYWx1ZUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEAAAAEaXRlbQIAAAANZGVzY3JpcHRpb246IAAAAAQAAAABaQEAAAAHZGVwb3NpdAAAAAIAAAAFdGl0bGUAAAAMc3VwcGxpZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHYkJpdENPMgkAAAIAAAABAgAAAC5Vc2UgYkJpdENPMiB0b2tlbnMgb25seSBmb3IgdGhlIHdhbGxldCBkZXBvc2l0BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAAB1ObyBoYXkgQml0Q08yIGluIHlvdXIgYmFsYW5jZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAIc3VwcGxpZXIFAAAACW5ld0Ftb3VudAUAAAADbmlsAAAAAWkBAAAAEEFkZFN1cHBsaWVyVG9rZW4AAAAGAAAABXRpdGxlAAAABG5hbWUAAAAHY291bnRyeQAAAAlwcmVJY29RdHkAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAxzdXBwbGllckRhdGEEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAwkAAGcAAAACAAAAAAAAAAAABQAAAAlwcmVJY29RdHkJAAACAAAAAQIAAAAfU29ycnksIGluc3VmZmljaWVudCB0b2tlbiBvZmZlcgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAApTdXBwbGllcjpfCQEAAAAOZ2V0S2V5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAhzdXBwbGllcgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAAdUaXRsZTpfBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANUHJvamVjdE5hbWU6XwUAAAAIc3VwcGxpZXIFAAAABG5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAJQ291bnRyeTpfBQAAAAhzdXBwbGllcgUAAAAHY291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACXByZUljb1F0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA9Ob21Ub2tlblByaWNlOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0JAABoAAAAAgUAAAAIbm9tUHJpY2UFAAAAA3d2cwkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABdNYXhfRGVzY3VlbnRvX29mcmVjaWRvOgkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAQc3VwcGxpZXJEaXNjb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA1EZXZlbG9wbWVudDpfCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAAtwdXJjaGFzZUdUUwAAAAcAAAAEaXRlbQAAAAh1c2VyTmFtZQAAAAt1c2VyQ291bnRyeQAAAAJ1RAAAAAt0b3RhbEFtb3VudAAAAAJwQQAAAAJlQQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAALXlvdSBjYW4gYWRxdWlyZSBQcm9kdWN0cyBvbmx5IGJ5IFdhdmVzIHRva2VucwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1YlRvdGFsCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50CQAAaQAAAAIJAABoAAAAAgUAAAADaWd2BQAAAAt0b3RhbEFtb3VudAAAAAAAAAAAZAQAAAACdUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADdUlQAAAAAAAAAABkBAAAAAN1QkkJAABpAAAAAgUAAAACdUkFAAAAA2NQQgQAAAACcEkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADcElQAAAAAAAAAABkBAAAAAJlSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAAAAAAAAAAAGQEAAAAA2VCSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANlSVAAAAAAAAAAAGQEAAAAAnNJCQAAZQAAAAIJAABlAAAAAgUAAAALdG90YWxBbW91bnQFAAAAAnBJBQAAAAJlSQQAAAADc0JJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3NJUAAAAAAAAAAAZAMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANVBheW1lbnQgQW1vdW50IGNhbid0IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQUAAAAIdXNlck5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0FAAAAC3VzZXJDb3VudHJ5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMZ2V0S2V5SXRlbVVEAAAAAQUAAAAEaXRlbQUAAAACdUQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAE1BheW1lbnRfYW1vdW50LF93dnMFAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZJbXAsICUFAAAAA2lndgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAJU1R0bCwgd3ZzBQAAAAhzdWJUb3RhbAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAALQ1AgMSBCLCB3dnMJAABoAAAAAgUAAAADY1BCAAAAAAAAD0JACQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5VUkAAAABBQAAAARpdGVtBQAAAAJ1SQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAADVUJJBQAAAAN1QkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlQSQAAAAEFAAAABGl0ZW0FAAAAAnBJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5RUkAAAABBQAAAAJlQQUAAAACZUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAABUVjU3lzBQAAAANlQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAljb25maXJtZWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAhnZXRLZXlTSQAAAAEFAAAABGl0ZW0FAAAAAnNJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAZTQkk6IGIFAAAAA3NCSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyCQAAZAAAAAIFAAAAD2JhbGFuY2VTdXBwbGllcggFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAAnVJBQAAAAR1bml0CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAABmlzc3VlcgUAAAACc0kFAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAAeQ2FuJ3Qgd2l0aGRyYXcgbmVnYXRpdmUgYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAhTm90IGVub3VnaHQgL2luc3VmaWNpZW50ZSBiYWxhbmNlCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEaXRlbQUAAAAJbmV3QW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAAB2JCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAAC093bmVyUHViS2V5AwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAASUmVpc3N1ZVRyYW5zYWN0aW9uBgkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgdE/931",
    "chainId": 84,
    "height": 942151,
    "spentComplexity": 0
}

View: original | compacted
Prev: FHzUKfWjEXyLAx7D2uDjiyWXK89mJEYofWSZ3rmbeHDh
Next: 8obVQbbXuC7GwtZdgVsxysqvtDdCBSRm1YZ25BtgRoFA

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

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

github/deemru/w8io/873ac7e 
87.57 ms ◑