w8 · tx · 7xV···91g

tx · 7xVSDmupvSfoXzTXknfMiXYio8hdHomopzXnJV7LD91g

3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2:  -0.01400000 Waves

2020.04.06 13:32 [942248] smart account 3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7xVSDmupvSfoXzTXknfMiXYio8hdHomopzXnJV7LD91g",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1586169112557,
    "version": 1,
    "sender": "3MsQwxepm5q2BG1PYUMwqoD2JLgKrACa3P2",
    "senderPublicKey": "GQpgNnxYTNNWmyiXVfx9rpMV1hgft2HPhJ3CkWeLuxAt",
    "proofs": [
        "NUwNQHRjX3niZRQpwsWjLywuWQa7soatrA3ouCUUMYxJ3BGbPCo1GeXKStkY1gbX5iHeMX6qSatYTEqGGoBAr1Z"
    ],
    "script": "base64:AAIDAAAAAAAAACMIARIECgIICBIICgYICAgBAQgSCQoHCAgICAEICBIECgIIAQAAADgAAAAAB2JCaXRDTzIBAAAAIB/+20Whi2vRcLDiyL6zBUKemnAWGkbChWDkhQemNVeLAAAAAAhzdGFydFF0eQAAAAAAAB6EgAAAAAAIbm9tUHJpY2UAAAAAAAAAAAEAAAAAA3d2cwAAAAAABfXhAAAAAAAQc3VwcGxpZXJEaXNjb3VudAAAAAAAAAAADAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIOT5kr0qxAUdVllbsg32nwnU0gQ806lA/C0Ix5M0fVkpAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVQmXeqpNBOU0gXTRoLnFygaPj7BjtrRIP0AAAAABGVBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTK9zs+5y/RVeIPrfhFsyze+43QDUVrfW8AAAAABHBBZGQJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTUPeuO2Y1p2TpK+OH14WsDuVCV2jcMFFQAAAAAA2lndgAAAAAAAAAAEgAAAAADY1BCAAAAAAAAAABYAAAAAAN1SVAAAAAAAAAAAAUAAAAAA3BJUAAAAAAAAAAACgAAAAADc0lQAAAAAAAAAAABAAAAAANlSVAAAAAAAAAAAAEBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAFdGl0bGUJAAEsAAAAAgIAAAAGQSB5IEc6CQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAABl9QIFNBQwEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAAEsAAAAAgUAAAAIc3VwcGxpZXICAAAABl9QIFNBQwEAAAAQZ2V0VmFsdWVTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXIJAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAAA1nZXRLZXlQcm9qZWN0AAAAAQAAAAJwQQkAASwAAAACBQAAAAJwQQIAAAAJX0EtUHJlSUNPAQAAAA9nZXRWYWx1ZVByb2plY3QAAAABAAAAAnBBCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAANZ2V0S2V5UHJvamVjdAAAAAEFAAAAAnBBAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtAgAAAAlVc2VyTmFtZToBAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAEWdldEtleVVzZXJDb3VudHJ5AAAAAQAAAARpdGVtAgAAAAlVc2VyUGFpczoBAAAAE2dldFZhbHVlVXNlckNvdW50cnkAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABFnZXRLZXlVc2VyQ291bnRyeQAAAAEFAAAABGl0ZW0BAAAADGdldEtleUl0ZW1VRAAAAAEAAAAEaXRlbQIAAAADVUQ6AQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABdTZWxsZXJfQmFsYW5jZSxfYUJpdENPMgEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIBAAAACGdldEtleVVJAAAAAQAAAARpdGVtAgAAAAhVSSxfd3ZzOgEAAAAKZ2V0VmFsdWVVSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQEAAAAJZ2V0S2V5VUJJAAAAAQAAAARpdGVtAgAAAAxVQkksX0JpdENPMjoBAAAAC2dldFZhbHVlVUJJAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAJZ2V0S2V5VUJJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5UEkAAAABAAAABGl0ZW0CAAAABlBJLF8lOgEAAAAKZ2V0VmFsdWVQSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVBJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5U0kAAAABAAAABGl0ZW0CAAAABlNJLF8lOgEAAAAKZ2V0VmFsdWVTSQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAACGdldEtleVNJAAAAAQUAAAAEaXRlbQEAAAAIZ2V0S2V5RUkAAAABAAAAAmVBAgAAAAZFSSxfJToBAAAACmdldFZhbHVlRUkAAAABAAAAAmVBCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAIZ2V0S2V5RUkAAAABBQAAAAJlQQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQAAAARpdGVtAgAAAAxVc2VyQ291bnRyeToBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABAAAABGl0ZW0CAAAAEFVzZXJEaXNjb3VudCwgJToBAAAAGGdldFZhbHVlSXRlbURpc2NvdW50VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1EaXNjb3VudFVzZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtAgAAABJPcmRlcl9xdHksX3Rva2VuczoBAAAAGGdldFZhbHVlSXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAFkJhbGFuY2UvU2FsZG8sIHRva2VuczoBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0CAAAABl93YXZlcwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABAAAABGl0ZW0CAAAAGFN1cHBsaWVyRGlzY291bnQsIG1heF8lOgEAAAAcZ2V0VmFsdWVJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABAAAABGl0ZW0CAAAADWRlc2NyaXB0aW9uOiAAAAAEAAAAAWkBAAAAB2RlcG9zaXQAAAACAAAABXRpdGxlAAAADHN1cHBsaWVyRGF0YQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB2JCaXRDTzIJAAACAAAAAQIAAAAuVXNlIGJCaXRDTzIgdG9rZW5zIG9ubHkgZm9yIHRoZSB3YWxsZXQgZGVwb3NpdAQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAdTm8gaGF5IEJpdENPMiBpbiB5b3VyIGJhbGFuY2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAABBBZGRTdXBwbGllclRva2VuAAAABgAAAAV0aXRsZQAAAARuYW1lAAAAB2NvdW50cnkAAAAJcHJlSWNvUXR5AAAAEHN1cHBsaWVyRGlzY291bnQAAAAMc3VwcGxpZXJEYXRhBAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAARpdGVtCQEAAAAKZ2V0S2V5SXRlbQAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQMJAABnAAAAAgAAAAAAAAAAAAUAAAAJcHJlSWNvUXR5CQAAAgAAAAECAAAAH1NvcnJ5LCBpbnN1ZmZpY2llbnQgdG9rZW4gb2ZmZXIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAKU3VwcGxpZXI6XwkBAAAADmdldEtleVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAHVGl0bGU6XwUAAAAIc3VwcGxpZXIFAAAABXRpdGxlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADVByb2plY3ROYW1lOl8FAAAACHN1cHBsaWVyBQAAAARuYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAACUNvdW50cnk6XwUAAAAIc3VwcGxpZXIFAAAAB2NvdW50cnkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAPTm9tVG9rZW5QcmljZTpfCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtCQAAaAAAAAIFAAAACG5vbVByaWNlBQAAAAN3dnMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAXTWF4X0Rlc2N1ZW50b19vZnJlY2lkbzoJAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAAEHN1cHBsaWVyRGlzY291bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAANRGV2ZWxvcG1lbnQ6XwkBAAAADmdldEtleUl0ZW1EYXRhAAAAAQUAAAAEaXRlbQUAAAAMc3VwcGxpZXJEYXRhBQAAAANuaWwAAAABaQEAAAALcHVyY2hhc2VHVFMAAAAHAAAABGl0ZW0AAAAIdXNlck5hbWUAAAALdXNlckNvdW50cnkAAAACdUQAAAALdG90YWxBbW91bnQAAAACcEEAAAACZUEEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAAC15b3UgY2FuIGFkcXVpcmUgUHJvZHVjdHMgb25seSBieSBXYXZlcyB0b2tlbnMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAPYmFsYW5jZVN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdWJUb3RhbAkAAGUAAAACBQAAAAt0b3RhbEFtb3VudAkAAGkAAAACCQAAaAAAAAIFAAAAA2lndgUAAAALdG90YWxBbW91bnQAAAAAAAAAAGQEAAAAAnVJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3VJUAAAAAAAAAAAZAQAAAADdUJJCQAAaQAAAAIFAAAAAnVJBQAAAANjUEIEAAAAAnBJCQAAaQAAAAIJAABoAAAAAgUAAAAIc3ViVG90YWwFAAAAA3BJUAAAAAAAAAAAZAQAAAACZUkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAANlQkkJAABpAAAAAgkAAGgAAAACBQAAAAhzdWJUb3RhbAUAAAADZUlQAAAAAAAAAABkBAAAAAJzSQkAAGUAAAACCQAAZQAAAAIFAAAAC3RvdGFsQW1vdW50BQAAAAJwSQUAAAACZUkEAAAAA3NCSQkAAGkAAAACCQAAaAAAAAIFAAAACHN1YlRvdGFsBQAAAANzSVAAAAAAAAAAAGQDCQAAZgAAAAIFAAAAC3RvdGFsQW1vdW50CAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADVQYXltZW50IEFtb3VudCBjYW4ndCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAARZ2V0S2V5VXNlckNvdW50cnkAAAABBQAAAARpdGVtBQAAAAt1c2VyQ291bnRyeQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADGdldEtleUl0ZW1VRAAAAAEFAAAABGl0ZW0FAAAAAnVECQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABNQYXltZW50X2Ftb3VudCxfd3ZzBQAAAAt0b3RhbEFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGSW1wLCAlBQAAAANpZ3YJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACVNUdGwsIHd2cwUAAAAIc3ViVG90YWwJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAC0NQIDEgQiwgd3ZzCQAAaAAAAAIFAAAAA2NQQgAAAAAAAA9CQAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleVVJAAAAAQUAAAAEaXRlbQUAAAACdUkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAA1VCSQUAAAADdUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5UEkAAAABBQAAAARpdGVtBQAAAAJwSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACGdldEtleUVJAAAAAQUAAAACZUEFAAAAAmVJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAVFY1N5cwUAAAADZUJJCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADk9yZGVyX1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAJY29uZmlybWVkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIZ2V0S2V5U0kAAAABBQAAAARpdGVtBQAAAAJzSQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGU0JJOiBiBQAAAANzQkkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAN1QkkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAEcEFkZAUAAAACcEkFAAAABHVuaXQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGaXNzdWVyBQAAAAJzSQUAAAAEdW5pdAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAARlQWRkBQAAAAJlSQUAAAAEdW5pdAUAAAADbmlsAAAAAWkBAAAACHdpdGhkcmF3AAAAAgAAAARpdGVtAAAABmFtb3VudAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAZhbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAFAAAABmFtb3VudAkAAAIAAAABAgAAAB5DYW4ndCB3aXRoZHJhdyBuZWdhdGl2ZSBhbW91bnQDCQAAZwAAAAIAAAAAAAAAAAAFAAAACW5ld0Ftb3VudAkAAAIAAAABAgAAACFOb3QgZW5vdWdodCAvaW5zdWZpY2llbnRlIGJhbGFuY2UJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHYkJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABJSZWlzc3VlVHJhbnNhY3Rpb24GCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwciIHgZ",
    "chainId": 84,
    "height": 942248,
    "spentComplexity": 0
}

View: original | compacted
Prev: 8qhFkT6z47qZWc3gFTj2H7dZPZ2ouWb9PHnw6fSBNYnA
Next: HNUTNPG3diPaGPCCqA2iTQUa1ki8tkcDcdifKUG5YBf

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(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, 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, uBI, unit), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, eI, 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 eAdd = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
21 21  
22 22  let pAdd = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
23 23  
24 24  let igv = 18
25 25  
26 26  let cPB = 88
27 27  
28 28  let uIP = 5
29 29  
30 30  let pIP = 10
31 31  
32 32  let sIP = 1
33 33  
34 34  let eIP = 1
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(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, 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, uBI, unit), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, eI, 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          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
282 282              then true
283 283              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
284 284          withWaves
285 285      case _ => 
286 286          false
287 287  }
288 288

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(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, 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, uBI, unit), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, eI, 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 eAdd = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
21	21
22	22		let pAdd = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
23	23
24	24		let igv = 18
25	25
26	26		let cPB = 88
27	27
28	28		let uIP = 5
29	29
30	30		let pIP = 10
31	31
32	32		let sIP = 1
33	33
34	34		let eIP = 1
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(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, 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, uBI, unit), ScriptTransfer(pAdd, pI, unit), ScriptTransfer(issuer, sI, unit), ScriptTransfer(eAdd, eI, 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		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
282	282		then true
283	283		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
284	284		withWaves
285	285		case _ =>
286	286		false
287	287		}
288	288

github/deemru/w8io/169f3d6 
89.81 ms ◑